diff --git a/src/clos/print.lsp b/src/clos/print.lsp
index 188b2a5e7..f74f82375 100644
--- a/src/clos/print.lsp
+++ b/src/clos/print.lsp
@@ -168,14 +168,16 @@ printer and we should rather use MAKE-LOAD-FORM."
 
 (defmethod print-object ((instance t) stream)
   (print-unreadable-object (instance stream)
-	(format stream "a ~S"
-		(class-name (si:instance-class instance))))
+    (let ((*package* (find-package "CL")))
+      (format stream "a ~S"
+	      (class-name (si:instance-class instance)))))
   instance)
 
 (defmethod print-object ((class class) stream)
   (print-unreadable-object (class stream)
-	(format stream "The ~A ~S"
-		(class-name (si:instance-class class)) (class-name class)))
+    (let ((*package* (find-package "CL")))
+      (format stream "The ~S ~S"
+	      (class-name (si:instance-class class)) (class-name class))))
   class)
 
 (defmethod print-object ((gf standard-generic-function) stream)