X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=ed462886a2646d1f16d56e9fe0e3ab74a7891cea;hb=b4831dc945c0754b3ba77881e67c8ea4d0a3d905;hp=9bfeeaa1791f3a88bd56a6090f2533118679f203;hpb=02c9007b4ca5753406f60019f4fe5e5f8392541a;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 9bfeeaa..ed46288 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -598,7 +598,7 @@
 	 (des (allocate-vector-object gspace
 				      sb!vm:n-byte-bits
 				      (1+ length)
-				      sb!vm:simple-string-widetag))
+				      sb!vm:simple-base-string-widetag))
 	 (bytes (gspace-bytes gspace))
 	 (offset (+ (* sb!vm:vector-data-offset sb!vm:n-word-bytes)
 		    (descriptor-byte-offset des))))
@@ -2021,7 +2021,7 @@
 (defun cold-load-symbol (size package)
   (let ((string (make-string size)))
     (read-string-as-bytes *fasl-input-stream* string)
-    (cold-intern (intern string package) package)))
+    (cold-intern (intern string package))))
 
 (macrolet ((frob (name pname-len package-len)
 	     `(define-cold-fop (,name)