diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index 22d391bc52e3c6b2f9d07073596cbb4a34a107fa..a8f3c9163be494b9cb493cb9474260e62989e175 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -30,6 +30,13 @@
 (in-package 'pcl)
 
 
+;;; Just use our without-interrupts.  We don't have the INTERRUPTS-ON/OFF local
+;;; macros spec'ed in low.lisp, but they aren't used.
+;;;
+(defmacro without-interrupts (&rest stuff)
+  `(sys:without-interrupts ,@stuff))
+
+
 ;;; Print the object addr in default printers.
 ;;;
 (defun printing-random-thing-internal (thing stream)