diff --git a/code/interr.lisp b/code/interr.lisp
index 390c409c81769e05f27740811534cadcdb25146f..1808d393237e61ea2cac0aa1d90389fdd99e69a5 100644
--- a/code/interr.lisp
+++ b/code/interr.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.16 1991/02/08 13:33:35 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.17 1991/05/24 19:55:09 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.16 1991/02/08 13:33:35 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.17 1991/05/24 19:55:09 wlott Exp $
 ;;;
 ;;; Functions and macros to define and deal with internal errors (i.e.
 ;;; problems that can be signaled from assembler code).
@@ -604,8 +604,7 @@
 			       #.(c-sizeof 'mach:sigcontext)
 			       scp)
 		   mach:sigcontext
-		   t)
-	       (regs (mach:sigcontext-regs (alien-value sc)) mach:int-array t))
+		   t))
     (multiple-value-bind
 	(error-number arguments)
 	(vm:internal-error-arguments (alien-value sc))