Index: /trunk/ccl/level-1/l1-io.lisp
===================================================================
--- /trunk/ccl/level-1/l1-io.lisp	(revision 465)
+++ /trunk/ccl/level-1/l1-io.lisp	(revision 466)
@@ -1446,5 +1446,5 @@
   (let ((name (function-name function)))
     (and name
-         (symbolp name)
+         (valid-function-name-p name)
          (eq function (fboundp name)))))