diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 3bb989bf85cfb3165ec5a228f7166db213e261c7..8a0440e9cedc050b87639988ce3e70c661ed8d89 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -26,7 +26,7 @@
 ;;;
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.15 1998/07/16 13:30:53 pw Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.16 1998/07/17 00:36:10 dtc Exp $")
 
 (in-package :pcl)
 
@@ -223,7 +223,7 @@ work during bootstrapping.
 	    (:method
 	     (push (cdr option) methods))
 	    (t ;unsuported things must get a 'program-error
-	     (error 'lisp::simple-program-error
+	     (error 'kernel:simple-program-error
 		    :format-control "Unsupported option ~S."
 		    :format-arguments (list option)))))