Index: /trunk/ccl/level-1/l1-utils.lisp
===================================================================
--- /trunk/ccl/level-1/l1-utils.lisp	(revision 909)
+++ /trunk/ccl/level-1/l1-utils.lisp	(revision 910)
@@ -1190,8 +1190,9 @@
 
 (defun string-argp (arg)
- (if (symbolp arg) (symbol-name arg)
-   (if (stringp arg) (ensure-simple-string arg)
-     nil)))
-
+  (cond ((symbolp arg) (symbol-name arg))
+        ((typep arg 'character) (string arg))
+        ((stringp arg) (ensure-simple-string arg))
+        (t nil)))
+  
 (defun symbol-arg (arg)
   (unless (symbolp arg)