diff --git a/code/weak.lisp b/code/weak.lisp
index 3939c4c01dbde2d255f683343f2ccd5d5b1d7b0b..fe910ce848e53b88ccf5d59fa1e386f83d9d7f92 100644
--- a/code/weak.lisp
+++ b/code/weak.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.4 1994/10/31 04:11:27 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.5 1999/03/17 19:30:14 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.4 1994/10/31 04:11:27 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/weak.lisp,v 1.5 1999/03/17 19:30:14 pw Exp $
 ;;;
 ;;; Weak Pointer Support.
 ;;;
@@ -39,3 +39,14 @@
   (let ((value (c::%weak-pointer-value weak-pointer))
 	(broken (c::%weak-pointer-broken weak-pointer)))
     (values value (not broken))))
+
+;;; For the interpreter..
+
+(defun c::%weak-pointer-value (w)
+  (declare (type weak-pointer w))
+  (c::%weak-pointer-value w))
+
+(defun c::%weak-pointer-broken (w)
+  (declare (type weak-pointer w))
+  (c::%weak-pointer-broken w))
+