diff --git a/pcl/low.lisp b/pcl/low.lisp
index 62aa373fb451fb0e1d326b8defcdbc03b6846566..2725ba85320e8ec90e33ff83f7044279b374d402 100644
--- a/pcl/low.lisp
+++ b/pcl/low.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.25 2003/05/07 17:14:24 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.26 2003/05/07 17:15:48 gerd Exp $")
 
 ;;; 
 ;;; This file contains optimized low-level constructs for PCL.
@@ -235,15 +235,12 @@ the compiler as completely as possible.  Currently this means that
 	       (and (kernel::standard-class-p ctype)
 		    (pcl::info-funcallable-standard-class-p
 		     (kernel:%class-name ctype))))
-	   (print "funcallable")
 	   '(kernel:%funcallable-instance-info object 0))
 	  ((or (csubtypep ctype standard-object)
 	       (and (kernel::standard-class-p ctype)
 		    (pcl::info-standard-class-p (kernel:%class-name ctype))))
-	   (print "instance")
 	   '(kernel:%instance-ref object 1))
 	  (t
-	   (print "give-up")
 	   `(when (pcl::pcl-instance-p object)
 	      (if (pcl::std-instance-p object)
 		  (pcl::std-instance-slots object)