Index: /trunk/source/level-1/l1-reader.lisp
===================================================================
--- /trunk/source/level-1/l1-reader.lisp	(revision 13973)
+++ /trunk/source/level-1/l1-reader.lisp	(revision 13974)
@@ -2355,4 +2355,6 @@
       (let* ((string (token.string token)))
         (or (%find-pkg string colonpos)
+            (subseq string 0 colonpos)
+            #+nomore
             (signal-reader-error stream "Reference to unknown package ~s." (subseq string 0 colonpos)))))
     *package*))
@@ -2460,5 +2462,5 @@
                   (progn                  ; Muck with readtable case of extended token.
                     (%casify-token tb (unless (atom escapes) escapes))
-                    (let* ((pkg (or explicit-package *package*)))
+                    (let* ((pkg (if explicit-package (pkg-arg explicit-package) *package*)))
                       (if (or double-colon (eq pkg *keyword-package*))
                         (without-interrupts