Index: /branches/working-0711/ccl/library/core-files.lisp
===================================================================
--- /branches/working-0711/ccl/library/core-files.lisp	(revision 13440)
+++ /branches/working-0711/ccl/library/core-files.lisp	(revision 13441)
@@ -963,6 +963,8 @@
            (core-print obj stream depth))
          (format stream ")"))
-        (t (format stream "#<core ~s x~x>"
-                   (core-object-typecode-type obj) obj))))
+        (t (format stream "#<core ~a x~x>"
+		   (or (ignore-errors (core-type-string (core-object-type-key obj)))
+		       (core-object-typecode-type obj))
+		   obj))))
 
 (defun core-print-symbol (sym stream)