diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 961a311f502d19e923e64be4ddfbe7aaacacd405..b4447e086098046588d6503b6c3077dc26f8d529 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.49 1993/03/12 16:50:30 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.50 1993/03/12 18:20:11 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,7 +24,9 @@
 	  stack-ref %set-stack-ref lra-code-header
 	  function-code-header make-lisp-obj get-lisp-obj-address
 	  function-word-offset
-	  funcallable-instance-p %set-funcallable-instance-info
+	  funcallable-instance-p %funcallable-instance-info
+	  %set-funcallable-instance-info %funcallable-instance-function
+	  %funcallable-instance-lexenv
 	  code-header-ref code-header-set code-instructions
 	  shift-towards-start shift-towards-end
 	  function-subtype
@@ -300,11 +302,9 @@
 (defknown %make-funcallable-instance (index function function layout) function
   (unsafe))
 
-(defknown %set-funcallable-instance-function (function function) function
-  (unsafe))
+(defknown %funcallable-instance-info (function index) t (flushable))
 (defknown %set-funcallable-instance-info (function index t) t (unsafe))
 
-
 
 ;;;; Mutator accessors.