Index: /trunk/ccl/level-1/l1-reader.lisp
===================================================================
--- /trunk/ccl/level-1/l1-reader.lisp	(revision 898)
+++ /trunk/ccl/level-1/l1-reader.lisp	(revision 899)
@@ -858,4 +858,5 @@
                      (logbitp $cht_macbit attr)
                      (multiple-value-bind (escapes explicit-package nondots) (%collect-xtoken tb stream firstch)
+                       (declare (ignore nondots))
                        (%casify-token tb (unless (atom escapes) escapes))
                        (or explicit-package