0.6.9.19:

[sbcl.git] / src / code / reader.lisp

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index f37d54f..d4abe78 100644 (file)
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -993,7 +993,7 @@
       (casify-read-buffer escapes)
       (let ((found (if package-designator
                       (find-package package-designator)
-                      *package*)))
+                      (sane-package))))
        (unless found
          (error 'reader-package-error :stream stream
                 :format-arguments (list package-designator)