Index: /trunk/ccl/level-0/l0-symbol.lisp
===================================================================
--- /trunk/ccl/level-0/l0-symbol.lisp	(revision 915)
+++ /trunk/ccl/level-0/l0-symbol.lisp	(revision 916)
@@ -165,5 +165,5 @@
 (defun make-symbol (name)
   (%gvector ppc32::subtag-symbol
-                (require-type name 'simple-string) ; pname
+                (ensure-simple-string name) ; pname
                 (%unbound-marker)       ; value cell
                 %unbound-function%      ; function cell
Index: /trunk/ccl/level-0/nfasload.lisp
===================================================================
--- /trunk/ccl/level-0/nfasload.lisp	(revision 915)
+++ /trunk/ccl/level-0/nfasload.lisp	(revision 916)
@@ -205,8 +205,10 @@
 
 (defun pkg-arg (thing &optional deleted-ok)
-  (let* ((xthing (if (or (symbolp thing)
-                         (typep thing 'character))
-                   (string thing)
-                   thing)))
+  (let* ((xthing (cond ((or (symbolp thing) (typep thing 'character))
+                        (string thing))
+                       ((typep thing 'string)
+                        (ensure-simple-string thing))
+                       (t
+                        thing))))
     (let* ((typecode (typecode xthing)))
         (declare (fixnum typecode))
Index: /trunk/ccl/level-1/l1-symhash.lisp
===================================================================
--- /trunk/ccl/level-1/l1-symhash.lisp	(revision 915)
+++ /trunk/ccl/level-1/l1-symhash.lisp	(revision 916)
@@ -126,5 +126,5 @@
 (defun find-all-symbols (name)
   (let* ((syms ())
-         (pname (string name))
+         (pname (ensure-simple-string (string name)))
          (len (length pname)))
     (with-package-list-read-lock
@@ -197,5 +197,5 @@
 (defun new-package-name (name &optional package)
   (do* ((prompt "Enter package name to use instead of ~S ."))
-       ((let* ((found (find-package (setq name (string name)))))
+       ((let* ((found (find-package (setq name (ensure-simple-string (string name))))))
           (or (not found)
               (eq package found)))