diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index 03974afb48e219c72099e95fe9efbd0d0ee55b79..e59f4d197010b16e24a0c02415d1457426d3b4b3 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.33 1993/08/27 14:29:09 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.34 1993/08/27 14:39:48 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -392,11 +392,11 @@
   (thread)
   ;; Signal control magic.
   (foreign-fn-call-active :c-type "boolean")
-  (interrupts_enabled :c-type "boolean")
-  (interrupt_pending :c-type "boolean")
-  (pending_signal :c-type "int")
-  (pending_code :c-type "int")
-  (pending_mask :c-type "int")
+  (interrupts-disabled-count :c-type "int")
+  (interrupt-pending :c-type "boolean")
+  (pending-signal :c-type "int")
+  (pending-code :c-type "int")
+  (pending-mask :c-type "int")
   ;; Stacks.
   (control-stack-base :c-type "lispobj *")
   (control-stack-pointer :c-type "lispobj *")
diff --git a/compiler/mips/cell.lisp b/compiler/mips/cell.lisp
index 711b75d9e27cacd71934a6c1a523ef563d758a4b..abead4db9c4925e2ba142df375efb50c0fe9cdec 100644
--- a/compiler/mips/cell.lisp
+++ b/compiler/mips/cell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.75 1993/08/27 14:35:08 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.76 1993/08/27 14:41:37 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -387,7 +387,7 @@
 		 (:variant ,offset)))))))))
 
 (define-mutator-accessors thread :des t)
-(define-mutator-accessors interrupts-enabled :ub32 t)
+(define-mutator-accessors interrupts-disabled-count :ub32 t)
 (define-mutator-accessors interrupt-pending :ub32 t)
 (define-mutator-accessors control-stack-base :sap nil)
 (define-mutator-accessors control-stack-end :sap nil)