Index: /trunk/ccl/lib/pprint.lisp
===================================================================
--- /trunk/ccl/lib/pprint.lisp	(revision 856)
+++ /trunk/ccl/lib/pprint.lisp	(revision 857)
@@ -1818,5 +1818,6 @@
 	   (cond ((and (or is-key (eq p *package*)
 			   (and ;*package* ;can be NIL on symbolics
-				(eq object (find-symbol s))))
+                            (multiple-value-bind (symbol type) (find-symbol s)
+                              (and type (eq object symbol)))))
                        (eq (readtable-case *readtable*) :upcase)
                        (neq *print-case* :studly)