diff --git a/compiler/rt/type-vops.lisp b/compiler/rt/type-vops.lisp
index b234679572a87372355ee3a99e6bb0cf4024a229..5c65f313ca0a7bd483b6617b99b97b67fff58caa 100644
--- a/compiler/rt/type-vops.lisp
+++ b/compiler/rt/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/type-vops.lisp,v 1.2 1991/10/22 15:50:55 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/type-vops.lisp,v 1.3 1991/11/05 16:24:27 ram Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the IBM RT.
@@ -221,6 +221,9 @@
 (def-type-vops lra-p nil nil nil return-pc-header-type)
 (def-type-vops scavenger-hook-p nil nil nil 0)
 
+(def-type-vops funcallable-instance-p nil nil nil
+  vm:funcallable-instance-header-type)
+
 
 ;;;; Other integer ranges.
 
diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp
index 8f4e5313b2c5509d5811e9cceffc152c40a2f20f..205f45221657427cabc4b5d8a480178c481369a1 100644
--- a/compiler/sparc/type-vops.lisp
+++ b/compiler/sparc/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.7 1991/10/31 16:19:55 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.8 1991/11/05 16:23:15 ram Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the SPARC.
@@ -63,7 +63,6 @@
 
 ); eval-when (compile eval)
 
-
 (def-type-vops fixnump nil nil nil vm:even-fixnum-type vm:odd-fixnum-type)
 (define-vop (check-fixnum check-type)
   (:ignore temp)
@@ -173,6 +172,9 @@
 (def-type-vops lra-p nil nil nil
   vm:return-pc-header-type)
 
+(def-type-vops funcallable-instance-p nil nil nil
+  vm:funcallable-instance-header-type)
+
 (def-type-vops array-header-p nil nil nil
   vm:simple-array-type vm:complex-string-type vm:complex-bit-vector-type
   vm:complex-vector-type vm:complex-array-type)