diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp
index e8a0bf99e7f6e74ea3a4c0b4624113fa6142944c..8628ed6ec0dae452ca350488a4a350c990a57d55 100644
--- a/compiler/sparc/parms.lisp
+++ b/compiler/sparc/parms.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.42 2003/08/22 13:20:03 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.43 2003/08/27 16:45:56 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -210,7 +210,7 @@
 
 (export '(halt-trap pending-interrupt-trap error-trap cerror-trap
 	  breakpoint-trap function-end-breakpoint-trap
-	  after-breakpoint-trap pseudo-atomic-trap
+	  after-breakpoint-trap allocation-trap pseudo-atomic-trap
 	  object-not-list-trap object-not-instance-trap
 	  trace-table-normal trace-table-call-site
 	  trace-table-function-prologue trace-table-function-epilogue))
diff --git a/lisp/sparc-arch.c b/lisp/sparc-arch.c
index f887aecd941d7c0f29cd945db61cb8f7a8965efa..b63770eb730d46e27cf79db5d3ee99c88c33d4ea 100644
--- a/lisp/sparc-arch.c
+++ b/lisp/sparc-arch.c
@@ -1,6 +1,6 @@
 /*
 
- $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.13 2003/08/22 13:20:03 toy Exp $
+ $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.14 2003/08/27 16:45:56 toy Exp $
 
  This code was written as part of the CMU Common Lisp project at
  Carnegie Mellon University, and has been placed in the public domain.
@@ -242,7 +242,7 @@ boolean allocation_trap_p(struct sigcontext *context)
 
   pc = SC_PC(context);
   
-  if (trap_inst_p(pc, &trapno) && (trapno == 31))
+  if (trap_inst_p(pc, &trapno) && (trapno == trap_Allocation))
     {
       /* Got the trap.  Is it preceeded by an OR instruction? */
       or_inst = pc[-1];