X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fread.lisp;h=1cbe13e50f2df7e0661ad16a031ce44927c6b13e;hb=b2de12c4e1a6e77e7f3f22d056adcfeda79d085b;hp=0c1f4401d0642b570d5a0aeb36ba29258488976d;hpb=08056be894cbce7690abe9a2d6da09a28ab0e1c9;p=jscl.git

diff --git a/src/read.lisp b/src/read.lisp
index 0c1f440..1cbe13e 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -319,7 +319,7 @@
       ;; No package prefix
       ((= index size)
        (setq name string)
-       (setq package *package*)
+       (setq package (package-name *package*))
        (setq internalp t))
       (t
        ;; Package prefix