Index: /trunk/source/lib/macros.lisp
===================================================================
--- /trunk/source/lib/macros.lisp	(revision 12888)
+++ /trunk/source/lib/macros.lisp	(revision 12889)
@@ -1587,5 +1587,5 @@
            (*read-eval* t) ; Also MIA as of 5/15/90
            (*read-suppress* nil)
-           (*readtable* %initial-readtable%)
+           (*readtable* %standard-readtable%)
 	   ; ccl extensions (see l1-io.lisp)
 	   (*print-abbreviate-quote* t)