diff --git a/code/signal.lisp b/code/signal.lisp
index 164d09933a046e8b0c85a66c21aac539f1d69430..438b64987177d36853ab0efed10966bedb8826f9 100644
--- a/code/signal.lisp
+++ b/code/signal.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.2 1990/06/06 03:59:28 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.3 1990/07/02 04:37:34 wlott Exp $
 ;;;
 ;;; Code for handling UNIX signals.
 ;;; 
@@ -58,6 +58,7 @@
 	       `(install-handler ,(mach:unix-signal-number signal)
 				 (di::get-lisp-obj-address ,handler))))
     #+nil (frob :sigint #'sigint-handler)
+    (frob :sigquit #'sigquit-handler)
     (frob :sigill #'sigill-handler)
     (frob :sigtrap #'internal-error)
     (frob :sigiot #'sigiot-handler)