diff --git a/compiler/rt/alloc.lisp b/compiler/rt/alloc.lisp
index fe63ac0d4a087c1aaf49375303a9b2defca05b4b..6af2d8dd7c2024ab52c410d129a092dff3e8ee49 100644
--- a/compiler/rt/alloc.lisp
+++ b/compiler/rt/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/alloc.lisp,v 1.2 1991/04/20 17:01:34 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/alloc.lisp,v 1.3 1991/04/23 17:23:50 chiles Exp $
 ;;;
 ;;; Allocation VOPs for the IBM RT port.
 ;;;
@@ -94,7 +94,7 @@
   (:temporary (:scs (non-descriptor-reg) :from (:argument 1)) unboxed)
   (:generator 100
     (inst li ndescr (lognot lowtag-mask))
-    (inst cal boxed boxed-arg (fixnum (1+ code-constants-offset)))
+    (inst cal boxed boxed-arg (fixnum (1+ vm:code-trace-table-offset-slot)))
     (inst n boxed ndescr)
     (move unboxed unboxed-arg)
     (inst sr unboxed word-shift)