diff --git a/pcl/fast-init.lisp b/pcl/fast-init.lisp
index 44f100580aab8261d57363a69fd2e6f27b4e1458..20627ade349b9a091781a3bbc4765fcb7810537f 100644
--- a/pcl/fast-init.lisp
+++ b/pcl/fast-init.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.10 2002/09/07 13:16:48 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.11 2002/10/18 23:31:03 pmai Exp $")
 ;;;
 ;;; This file defines the optimized make-instance functions.
 ;;; 
@@ -135,8 +135,11 @@
 		(*print-length* nil) (*print-level* nil)
 		(*print-circle* nil) (*print-case* :upcase)
 		(*print-pretty* nil))
-	    (intern (format nil "MAKE-INSTANCE ~S ~S ~S"
-			    class-name keys allow-other-keys-p))))))))
+	    (intern (format nil "MAKE-INSTANCE ~A::~A ~S ~S"
+                            (package-name (symbol-package class-name))
+                            (symbol-name class-name)
+			    keys
+			    allow-other-keys-p))))))))
 
 (defun make-instance-1 (class initargs)
   (apply #'make-instance class initargs))