diff --git a/pcl/env.lisp b/pcl/env.lisp
index 95a83dd2c71dcac4f766d941e3e089d917b5e6c5..94631d72c270b22e0853f8ec7098323dbb24d627 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.23 2003/05/17 19:02:37 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.24 2003/05/17 19:08:10 gerd Exp $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
@@ -304,8 +304,6 @@
 	     class))
     `(find-class ',name)))
 
-(defgeneric make-load-form-saving-slots (object &key slot-names environment))
-
 (defun make-load-form-saving-slots (object &key slot-names environment)
   (declare (ignore environment))
   (let ((class (class-of object)))