diff --git a/src/CHANGELOG b/src/CHANGELOG
index 500f94284..bd7449609 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -13,6 +13,8 @@ ECL 9.6.3:
 
  - EXT:OUTPUT-FLOAT-INFINITY works now fine when *print-circle* is T.
 
+ - WITH-STANDARD-IO-SYNTAX now also rebinds *print-pprint-dispatch*.
+
 * Compiler:
 
  - When printing out data and reading it from a FASL file, the
diff --git a/src/c/read.d b/src/c/read.d
index ba8ef384d..0cbcabb44 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -2298,7 +2298,8 @@ init_read(void)
                               /*si::*print-structure**/ Ct,
                               /*si::*sharp-eq-context**/ Cnil);
                 ECL_SET(@'si::+ecl-syntax-progv-list+', CONS(var,val));
-                var = cl_list(20,
+                var = cl_list(21,
+                              @'*print-pprint-dispatch*', /* See end of pprint.lsp */
                               @'*print-array*',
                               @'*print-base*',
                               @'*print-case*',
@@ -2319,7 +2320,8 @@ init_read(void)
                               @'*read-suppress*',
                               @'*readtable*',
                               @'*package*');
-                val = cl_list(20,
+                val = cl_list(21,
+                              /**pprint-dispatch-table**/ Cnil,
                               /**print-array**/ Ct,
                               /**print-base**/ MAKE_FIXNUM(10),
                               /**print-case**/ @':upcase',
diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index d929a0c99..02e362f08 100644
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -1575,5 +1575,6 @@
     (setf *initial-pprint-dispatch* *print-pprint-dispatch*)
     )
   (setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
+  (setf (first (cdr si::+io-syntax-progv-list+)) *initial-pprint-dispatch*)
   #-ecl-min
   (setf *print-pretty* t))