diff --git a/src/c/read.d b/src/c/read.d
index 0cbcabb44..86accaeea 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -2251,7 +2251,8 @@ init_read(void)
 
         {
                 cl_object var, val;
-                var = cl_list(22,
+                var = cl_list(23,
+                              @'*print-pprint-dispatch*', /* See end of pprint.lsp */
                               @'*print-array*',
                               @'*print-base*',
                               @'*print-case*',
@@ -2274,7 +2275,8 @@ init_read(void)
                               @'si::*print-package*',
                               @'si::*print-structure*',
                               @'si::*sharp-eq-context*');
-                val = cl_list(22,
+                val = cl_list(23,
+                              /**pprint-dispatch-table**/ Cnil,
                               /**print-array**/ Ct,
                               /**print-base**/ MAKE_FIXNUM(10),
                               /**print-case**/ @':downcase',
diff --git a/src/lsp/pprint.lsp b/src/lsp/pprint.lsp
index 02e362f08..716fccc34 100644
--- a/src/lsp/pprint.lsp
+++ b/src/lsp/pprint.lsp
@@ -1576,5 +1576,6 @@
     )
   (setf *print-pprint-dispatch* (copy-pprint-dispatch nil))
   (setf (first (cdr si::+io-syntax-progv-list+)) *initial-pprint-dispatch*)
+  (setf (first (cdr si::+ecl-syntax-progv-list+)) *initial-pprint-dispatch*)
   #-ecl-min
   (setf *print-pretty* t))