diff --git a/assembly/mips/alloc.lisp b/assembly/mips/alloc.lisp
index 8b7cc4624e1f34fe951d0aa22699baf8019ad6f5..c5c0257794efc79c55ac987ca88502ce6bf8b481 100644
--- a/assembly/mips/alloc.lisp
+++ b/assembly/mips/alloc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/alloc.lisp,v 1.6 1993/05/25 00:52:44 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/alloc.lisp,v 1.7 1993/08/27 15:01:46 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -134,10 +134,10 @@
   ;; be large.
   (emit-label large-alloc-entry)
 
-  ;; Disable suspends.
-  (loadw temp mutator-tn mutator-suspends-disabled-count-slot)
+  ;; Disable interrupts.
+  (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
   (inst addu temp temp 1)
-  (storew temp mutator-tn mutator-suspends-disabled-count-slot)
+  (storew temp mutator-tn mutator-interrupts-disabled-count-slot)
 
   (with-regs-saved (a1 a2 a3 a4 a5 fdefn lexenv ra)
     (inst li temp (make-fixup "allocate_large_object" :foreign))
@@ -146,13 +146,13 @@
 
   (inst move result temp)
 
-  ;; Re-enable suspends.
-  (loadw temp mutator-tn mutator-suspends-disabled-count-slot)
+  ;; Re-enable interrupts.
+  (loadw temp mutator-tn mutator-interrupts-disabled-count-slot)
   (inst subu temp temp 1)
   (inst bne temp zero-tn done)
-  (storew temp mutator-tn mutator-suspends-disabled-count-slot)
+  (storew temp mutator-tn mutator-interrupts-disabled-count-slot)
   ;; Check to see if any are pending.
-  (loadw temp mutator-tn mutator-suspend-pending-slot)
+  (loadw temp mutator-tn mutator-interrupt-pending-slot)
   (inst beq temp zero-tn done)
   (inst nop)