diff --git a/pcl/clos-bench.lisp b/pcl/clos-bench.lisp
index 608725207ea29c8dda99be42f69c0af3c56e3b2a..593a4ed29d1878bd8b423f7f969b4e99f5a05215 100644
--- a/pcl/clos-bench.lisp
+++ b/pcl/clos-bench.lisp
@@ -55,7 +55,7 @@
 ;;; jmorrill@bbn.com
 
 #+cmu
-(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/clos-bench.lisp,v 1.2 2003/03/22 16:15:18 gerd Exp $")
+(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/clos-bench.lisp,v 1.3 2003/05/22 15:50:06 gerd Rel $")
  
 #+cmu
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -307,7 +307,7 @@
    (a9 :initform 0 :accessor a9 :initarg :a9)))
 
 #+gerds-pcl
-(declaim (pcl:slots (inline inline-point inline-large-class)))
+(declaim (ext:slots (inline inline-point inline-large-class)))
 
 (defclass inline-point ()
   ((x :initform 0 :accessor x :initarg :x)
@@ -371,7 +371,7 @@
 
 (defmethod x-offset/reader/inline ((thing inline-point))
   #+gerds-pcl
-  (declare (pcl:slots (slot-boundp inline-point)
+  (declare (ext:slots (slot-boundp inline-point)
 		      (inline inline-point)))
   (x thing))
 
@@ -386,7 +386,7 @@
 
 (defmethod set-x-offset/writer/inline ((thing inline-point) new-x)
   #+gerds-pcl
-  (declare (pcl:slots (inline inline-point)))
+  (declare (ext:slots (inline inline-point)))
   (setf (x thing) new-x))
 
 (defclass box (point)
@@ -405,13 +405,13 @@
 
 (defmethod x-offset-inline ((thing inline-point))
   #+gerds-pcl
-  (declare (pcl:slots (slot-boundp inline-point)
+  (declare (ext:slots (slot-boundp inline-point)
 		      (inline inline-point)))
   (with-slots (x y) thing x))
 
 (defmethod large-class/with-slots/inline ((thing inline-large-class))
   #+gerds-pcl
-  (declare (pcl:slots (slot-boundp inline-large-class)
+  (declare (ext:slots (slot-boundp inline-large-class)
 		      (inline inline-large-class)))
   (dotimes (i 1000)
     (with-slots (a0 a1 a2 a3 a4 a5 a6 a7 a8 a9) thing