diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index edff8676bee3846429979b040039920c9f68cbde..e3ee0d978852aac6038cf44fd230f01129a8724f 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.10 1990/06/03 18:57:12 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.11 1990/06/03 19:08:39 ch Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -69,9 +69,10 @@
   (unsafe))
 
 
-(defknown dynamic-space-free-pointer ()
+(defknown (dynamic-space-free-pointer binding-stack-pointer-sap
+				      control-stack-pointer-sap)  ()
   (system-area-pointer)
-  (foldable flushable movable))
+  (flushable))
 
 
 ;;;; 32bit logical operations
diff --git a/compiler/mips/system.lisp b/compiler/mips/system.lisp
index c1cce9fd9393086eee53731bc82e32a5db84acb6..f3f7a330287667380acf9df4d767d7330f482f24 100644
--- a/compiler/mips/system.lisp
+++ b/compiler/mips/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.20 1990/06/02 16:03:53 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.21 1990/06/03 19:09:26 ch Exp $
 ;;;
 ;;;    MIPS VM definitions of various system hacking operations.
 ;;;
@@ -166,6 +166,20 @@
   (:generator 1
     (move int alloc-tn)))
 
+(define-vop (binding-stack-pointer-sap)
+  (:results (int :scs (sap-reg)))
+  (:translate binding-stack-pointer-sap)
+  (:policy :fast-safe)
+  (:generator 1
+    (move int bsp-tn)))
+
+(define-vop (control-stack-pointer-sap)
+  (:results (int :scs (sap-reg)))
+  (:translate control-stack-pointer-sap)
+  (:policy :fast-safe)
+  (:generator 1
+    (move int csp-tn)))
+
 
 ;;;; Code object frobbing.