diff --git a/pcl/fixup.lisp b/pcl/fixup.lisp
index dc293a3247848c3af6df6079dc64732178493edc..0b354b32ad0a6d939a258f8527fc14b48da446a6 100644
--- a/pcl/fixup.lisp
+++ b/pcl/fixup.lisp
@@ -40,3 +40,9 @@
   (declare (ignore depth))
   (print-object instance stream))
 
+(defmethod print-object ((ctor ctor) stream)
+  (print-unreadable-object (ctor stream :type t :identity t)
+    (format stream "~s ~s ~s"
+	    (ctor-class-name ctor)
+	    (ctor-initargs ctor)
+	    (ctor-state ctor))))