diff --git a/compiler/rt/sap.lisp b/compiler/rt/sap.lisp
index 825833a0415099ff6a32fbed86fac72b0403eb08..2425eaf109748d1dc8d0ee30d2be9f56ee6e15e7 100644
--- a/compiler/rt/sap.lisp
+++ b/compiler/rt/sap.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.7 1991/09/28 12:43:50 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.8 1991/10/01 14:36:56 ram Exp $
 ;;;
 ;;; This file contains the IBM RT VM definition of SAP operations.
 ;;;
@@ -338,7 +338,7 @@
   (signed-reg unsigned-reg) (:or signed-num unsigned-num))
 
 ;;; Ugly, because there are only 2 free sap-regs.  We stash the data value in
-;;; NL0 to free up a sap-reg for BASE.
+;;; NARGS to free up a sap-reg for BASE.
 ;;;
 (define-vop (sap-system-set)
   (:policy :fast-safe)
@@ -348,7 +348,7 @@
 	 (data :scs (sap-reg sap-stack)))
   (:arg-types system-area-pointer positive-fixnum system-area-pointer)
   (:temporary (:scs (sap-reg) :from (:eval 0) :to (:eval 1)) base)
-  (:temporary (:scs (non-descriptor-reg) :offset nl0-offset
+  (:temporary (:scs (non-descriptor-reg) :offset nargs-offset
 	       :from (:eval 0) :to (:eval 1))
 	      save)
   (:vop-var vop)