diff --git a/pcl/fast-init.lisp b/pcl/fast-init.lisp
index a8084dc6ec08da04258a7609d315bd2ba7deb34e..b58f28a7f34b671fab9d98001ad8a63a0debb32a 100644
--- a/pcl/fast-init.lisp
+++ b/pcl/fast-init.lisp
@@ -1,4 +1,4 @@
-;;;-*-Mode:LISP; Package:(PCL LISP 1000); Base:10; Syntax:Common-lisp -*-
+;;; -*- Mode: LISP; Package: PCL -*-
 ;;;
 ;;; *************************************************************************
 ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.5 1999/05/30 23:13:59 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/Attic/fast-init.lisp,v 1.6 2001/01/27 15:07:45 pw Exp $")
 ;;;
 ;;; This file defines the optimized make-instance functions.
 ;;; 
@@ -68,8 +68,16 @@
 	     (sym (make-instance-function-symbol key)))
 	(push key *make-instance-function-keys*)
 	(when sym
+	  (progn ;; Lifted from c::%%defun.
+	    (c::define-function-name sym)
+	    (when (eq (ext:info function where-from sym) :assumed)
+	      (setf (ext:info function where-from sym) :defined)
+	      (when (ext:info function assumed-type sym)
+		(setf (ext:info function assumed-type sym) nil))))
 	  `(,sym ',class (list ,@initargs)))))))
 
+
+
 (defmacro expanding-make-instance-top-level (&rest forms &environment env)
   (let* ((*make-instance-function-keys* nil)
 	 (form (macroexpand `(expanding-make-instance ,@forms) env)))