diff --git a/ansi-tests/with-standard-io-syntax.lsp b/ansi-tests/with-standard-io-syntax.lsp
index 1dab3d5bed64efb6a0b17d2fba98e5b46245e9d0..3d9c0f9c21d36e265631c61efc5be6fb5b91cde0 100644
--- a/ansi-tests/with-standard-io-syntax.lsp
+++ b/ansi-tests/with-standard-io-syntax.lsp
@@ -118,13 +118,12 @@
      (+ i 2)))
   15)
 
-
-
-
-
-
-
-
-
-
-
+(deftest with-standard-io-syntax.23
+  (let ((*print-pprint-dispatch* (copy-pprint-dispatch nil)))
+    (set-pprint-dispatch 'symbol #'(lambda (stream obj)
+                                     (declare (ignore obj))
+                                     (write-string "FOO" stream)))
+    (list (let ((*print-pretty* t)) (princ-to-string 'bar))
+          (with-standard-io-syntax
+            (let ((*print-pretty* t)) (princ-to-string 'bar)))))
+  ("FOO" "BAR"))