diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index e3ee0d978852aac6038cf44fd230f01129a8724f..f25c2d116ea8f786318d367400e95235782095cb 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.11 1990/06/03 19:08:39 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.12 1990/06/08 01:18:34 wlott Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -69,6 +69,10 @@
   (unsafe))
 
 
+(defknown %make-weak-pointer (t boolean) weak-pointer
+  (flushable))
+
+
 (defknown (dynamic-space-free-pointer binding-stack-pointer-sap
 				      control-stack-pointer-sap)  ()
   (system-area-pointer)