diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index cd114027c4ec4a37c7411bd9d727f7f40ac33cb2..9613f6d3001d13d5e6aeb91274c468715701484c 100644
--- a/compiler/sparc/macros.lisp
+++ b/compiler/sparc/macros.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.5 1992/03/11 21:29:11 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.6 1992/03/21 21:44:12 wlott Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -433,4 +433,4 @@
     `(let ((,n-extra ,extra))
        (inst add alloc-tn 4)
        ,@forms
-       (inst taddcctv alloc-tn (- ,extra 4)))))
+       (inst taddcctv alloc-tn (- ,n-extra 4)))))