Index: /trunk/ccl/level-1/l1-reader.lisp
===================================================================
--- /trunk/ccl/level-1/l1-reader.lisp	(revision 688)
+++ /trunk/ccl/level-1/l1-reader.lisp	(revision 689)
@@ -155,9 +155,9 @@
 (defvar %initial-readtable%
   (let* ((ttab (make-array 256 :element-type '(signed-byte 8)))
-         (wspc '(#\Null #\Tab #\Linefeed #\Page #\Return #\Space #\312)) ;$CA=non-break space
          (macs `((#\# . (,#'read-dispatch))))
          (case :upcase))
     (dotimes (i 256) (declare (fixnum i))(uvset ttab i $cht_cnst))
-    (dolist (ch wspc) (uvset ttab (%char-code ch) $cht_wsp))
+    (dotimes (ch (1+ (char-code #\Space)))
+      (uvset ttab ch $cht_wsp))
     (uvset ttab (char-code #\\) $cht_sesc)
     (uvset ttab (char-code #\|) $cht_mesc)