diff --git a/code/run-program.lisp b/code/run-program.lisp
index 1861c7fe128eeaba31fb2524527ae534635eac05..f41e2911c6e9255bf7c3cfede6ce34ed141c8e40 100644
--- a/code/run-program.lisp
+++ b/code/run-program.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.23 1998/06/16 06:58:57 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.24 2001/04/10 12:46:37 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -153,6 +153,7 @@
    whom is :process-group, use the killpg Unix system call.  If whom is
    :pty-process-group deliver the signal to whichever process group is currently
    in the foreground."
+  (declare (type process proc))
   (let ((pid (ecase whom
 	       ((:pid :process-group)
 		(process-pid proc))