diff --git a/code/class.lisp b/code/class.lisp
index 98399ee47d490afd31b28261c899bcfdd2204e5f..573069d99b17a5c22ccff7b1932579efcd49be34 100644
--- a/code/class.lisp
+++ b/code/class.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.30 1993/08/22 22:20:07 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/class.lisp,v 1.31 1993/08/24 23:26:54 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -285,6 +285,11 @@
 ;;;
 (defstruct (class-cell
 	    (:constructor make-class-cell (name &optional class))
+	    (:print-function
+	     (lambda (s stream d)
+	       (declare (ignore d))
+	       (print-unreadable-object (s stream :type t) 
+		 (prin1 (class-cell-name s) stream))))
 	    (:make-load-form-fun
 	     (lambda (cell)
 	       `(find-class-cell ',(class-cell-name cell)))))