Fix bug in read-symbol

diff --git a/src/read.lisp b/src/read.lisp
index 0c1f440..1cbe13e 100644 (file)
--- 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