diff --git a/pcl/methods.lisp b/pcl/methods.lisp
index a2c42ea6d02b733bfacf03143bba8a654bbf304d..0a6a3a2d05881cc4c40d9c3d3e8c90376999d176 100644
--- a/pcl/methods.lisp
+++ b/pcl/methods.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.39 2003/06/06 12:22:32 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/methods.lisp,v 1.40 2003/07/21 17:36:47 gerd Exp $")
 
 (in-package :pcl)
 
@@ -90,7 +90,7 @@
 		  (unparse-specializers method)))
 	(call-next-method))))
 
-(defmethod print-object ((gf generic-function) stream)
+(defmethod print-object ((gf standard-generic-function) stream)
   (named-object-print-function
     gf
     stream