diff --git a/code/fdefinition.lisp b/code/fdefinition.lisp
index 24ba1b5afdcc2e49f20d7252ee66f5fd747ad001..8f08bb5141d797c53aeb681239d183f999ce7b5b 100644
--- a/code/fdefinition.lisp
+++ b/code/fdefinition.lisp
@@ -7,12 +7,14 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fdefinition.lisp,v 1.1.1.2 1990/04/20 00:36:19 wlott Exp $
+;;;
 ;;;    Functions that hack on the global function namespace (primarily
 ;;; concerned with SETF functions here.)
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
-(in-package 'lisp)
+(in-package "LISP")
 (export '(fdefinition fboundp fmakunbound))
 
 (defvar *setf-functions* (make-hash-table :test #'equal))
@@ -35,6 +37,14 @@
 
 ); Eval-When (Compile Eval)
 
+#+new-compiler
+(defun careful-symbol-function (name)
+  (symbol-function name))
+
+#+new-compiler
+(defun set-symbol-function-carefully (name value)
+  (setf (symbol-function name) value))
+
 (defun fdefinition (name)
   "Return Name's global function definition."
   (with-function-name name