diff --git a/code/symbol.lisp b/code/symbol.lisp
index 2bf98e6696d0ed183766bc65e4e0e25971524c61..0dddd5ecf31b847a3bbf9f8af431dc9d7ae3c3b7 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -15,11 +15,16 @@
 ;;; Many of these are trivial interpreter entries to functions
 ;;; open-coded by the compiler.
 ;;;
-(in-package 'lisp)
+(in-package "LISP")
 (export '(get remprop symbol-plist getf get-properties symbol-name
 	  make-symbol copy-symbol gensym gentemp *gensym-counter*
 	  symbol-package keywordp makunbound symbol-value symbol-function
 	  boundp set))
+(in-package "KERNEL")
+(export '(%sp-set-definition %sp-set-plist))
+
+(in-package "LISP")
+
 
 (defun set (variable new-value)
   "VARIABLE must evaluate to a symbol.  This symbol's special value cell is