diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index 31cc79d883f3c30933af7d0b861764b632f37bf0..f11cdfaec132422e6d7bb13b4f5e20648b80aab9 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.53 1992/12/13 15:46:07 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.54 1992/12/17 09:04:41 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1004,7 +1004,7 @@
 			  0
 			  nil)))
 	    (find-escaped-frame caller))
-      (if (eq (kernel:code-debug-info code) :bogus-lra)
+      (if (eq (kernel:%code-debug-info code) :bogus-lra)
 	  (let ((real-lra (kernel:code-header-ref code real-lra-slot)))
 	    (compute-calling-frame caller real-lra up-frame))
 	  (let ((d-fun (case code
@@ -1061,7 +1061,7 @@
 			  (kernel:get-lisp-obj-address code)
 			  code-header-len)))
 	       (return
-		(if (eq (kernel:code-debug-info code) :bogus-lra)
+		(if (eq (kernel:%code-debug-info code) :bogus-lra)
 		    (let ((real-lra (kernel:code-header-ref code
 							    real-lra-slot)))
 		      (values (kernel:lra-code-header real-lra)
@@ -1103,7 +1103,7 @@
 ;;; the component, for function constants, and the c::compiled-debug-function.
 ;;;
 (defun debug-function-from-pc (component pc)
-  (let ((info (kernel:code-debug-info component)))
+  (let ((info (kernel:%code-debug-info component)))
     (cond
      ((not info)
       (debug-signal 'no-debug-info))
@@ -1295,7 +1295,7 @@
 			    (eq (c::compiled-debug-function-name x) name)
 			    (eq (c::compiled-debug-function-kind x) nil)))
 		   (get-debug-info-function-map
-		    (kernel:code-debug-info component)))))
+		    (kernel:%code-debug-info component)))))
 	(if res
 	    (make-compiled-debug-function res component)
 	    ;; This used to be the non-interpreted branch, but William wrote it
@@ -1605,7 +1605,7 @@
 ;;; COMPILED-DEBUG-FUNCTION-DEBUG-INFO -- Internal.
 ;;;
 (defun compiled-debug-function-debug-info (debug-fun)
-  (kernel:code-debug-info (compiled-debug-function-component debug-fun)))
+  (kernel:%code-debug-info (compiled-debug-function-component debug-fun)))
 
 
 
@@ -3431,8 +3431,7 @@
      (declare (type system:system-area-pointer
 		    src-start src-end dst-start trap-loc)
 	      (type kernel:index length))
-     (setf (kernel:code-header-ref code-object vm:code-debug-info-slot)
-	   :bogus-lra)
+     (setf (kernel:%code-debug-info code-object) :bogus-lra)
      (setf (kernel:code-header-ref code-object vm:code-trace-table-offset-slot)
 	   length)
      (setf (kernel:code-header-ref code-object real-lra-slot) real-lra)
@@ -3591,7 +3590,7 @@
 ;;; it is in the result vector.
 ;;;
 (defun sub-generate-component-source-paths (component)
-  (let ((info (kernel:code-debug-info component)))
+  (let ((info (kernel:%code-debug-info component)))
     (unless info (debug-signal 'no-debug-info))
     (let* ((function-map (get-debug-info-function-map info))
 	   (result *source-paths-buffer*))
diff --git a/code/describe.lisp b/code/describe.lisp
index 3b69e0a6d9407bc28f3817cffa57e43364289f7f..7226d8442e04e94da3197f3ad5e6f448f9019a3f 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.21 1992/12/13 16:04:19 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.22 1992/12/17 09:07:01 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -275,7 +275,7 @@
 ;;;    Print information from the debug-info about where X was compiled from.
 ;;;
 (defun print-compiled-from (x)
-  (let ((info (kernel:code-debug-info (kernel:function-code-header x))))
+  (let ((info (kernel:%code-debug-info (kernel:function-code-header x))))
     (when info
       (let ((sources (c::compiled-debug-info-source info)))
 	(format t "~&On ~A it was compiled from:"