Index: /branches/working-0711/ccl/level-1/l1-boot-2.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-boot-2.lisp	(revision 12958)
+++ /branches/working-0711/ccl/level-1/l1-boot-2.lisp	(revision 12959)
@@ -256,5 +256,5 @@
 	(bin-load-provide "X86-DISASSEMBLE" "x86-disassemble")
 	(bin-load-provide "X86-LAPMACROS" "x86-lapmacros"))
-      
+
 
       (bin-load-provide "FOREIGN-TYPES" "foreign-types")
@@ -289,5 +289,10 @@
       #+freebsdx8632-target
       (bin-load-provide "FFI-FREEBSDX8632" "ffi-freebsdx8632")
-      
+
+
+      ;; Knock wood: all standard reader macros and no non-standard
+      ;; reader macros are defined at this point.
+      (setq *readtable* (copy-readtable *readtable*))
+
       (bin-load-provide "DB-IO" "db-io")
 
Index: /branches/working-0711/ccl/level-1/l1-reader.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12958)
+++ /branches/working-0711/ccl/level-1/l1-reader.lisp	(revision 12959)
@@ -1965,5 +1965,5 @@
 
 ;;; This -really- gets initialized later in the file
-(defvar %initial-readtable%
+(defvar %standard-readtable%
   (let* ((ttab (make-array 256 :element-type '(unsigned-byte 8)))
          (macs `((#\# . (,#'read-dispatch))))
@@ -1980,10 +1980,11 @@
     (%istruct 'readtable ttab macs case)))
 
-(setq *readtable* %initial-readtable%)
+(defvar %initial-readtable%)
+(setq *readtable* %standard-readtable%)
 (def-standard-initial-binding *readtable* )
 (queue-fixup (setq %initial-readtable% (copy-readtable *readtable*)))
 
 (defun copy-readtable (&optional (from *readtable*) to)
-  (setq from (if from (readtable-arg from)  %initial-readtable%))
+  (setq from (if from (readtable-arg from)  %standard-readtable%))
   (setq to (if to 
              (readtable-arg to)
Index: /branches/working-0711/ccl/lib/macros.lisp
===================================================================
--- /branches/working-0711/ccl/lib/macros.lisp	(revision 12958)
+++ /branches/working-0711/ccl/lib/macros.lisp	(revision 12959)
@@ -1547,5 +1547,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)