X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=3beb39706161f1c359168d228b96d255c105221d;hb=0d3d3a78055fa485985cda2df688f3cd7e9adb18;hp=45d3d39f50e295187e12952f7aaedaf5360b7f9b;hpb=8c1cdfc03a0070295e595e8b0ba97214ccb50a41;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 45d3d39..3beb397 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -315,7 +315,7 @@ instead (which is another name for the same thing)."))
 (defun hexstr (thing)
   (/noshow0 "entering HEXSTR")
   (let ((addr (get-lisp-obj-address thing))
-	(str (make-string 10)))
+	(str (make-string 10 :element-type 'base-char)))
     (/noshow0 "ADDR and STR calculated")
     (setf (char str 0) #\0
 	  (char str 1) #\x)