Index: /trunk/ccl/level-1/l1-reader.lisp
===================================================================
--- /trunk/ccl/level-1/l1-reader.lisp	(revision 5144)
+++ /trunk/ccl/level-1/l1-reader.lisp	(revision 5145)
@@ -214,5 +214,6 @@
   (let* ((fttab (rdtab.ttab from))
          (tttab (rdtab.ttab to)))
-    (%copy-ivector-to-ivector fttab 0 tttab 0 257)))
+    (%copy-ivector-to-ivector fttab 0 tttab 0 256))
+  to)
 
 (declaim (inline %character-attribute))