diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp
index 6bef157eee7a1835e98ca4a4053fde79f1a733e6..94501346289409b4e490f3e068b995f8007ddf39 100644
--- a/hemlock/rompsite.lisp
+++ b/hemlock/rompsite.lisp
@@ -869,7 +869,7 @@
 		      (:misc #'editor-window-misc))
 	    (:print-function
 	     (lambda (s stream d)
-	       (declare (ignore s d write))
+	       (declare (ignore s d))
 	       (write-string "#<Editor-Window-Input stream>" stream)))
 	    (:constructor make-editor-window-input-stream
 			  (&optional (head (make-key-event)) (tail head))))
diff --git a/hemlock/screen.lisp b/hemlock/screen.lisp
index a82f122d0b4df965113e00976133a774e80d7ed4..076589e1ae97ff8cd6c349686fbc21ad2d2ca57e 100644
--- a/hemlock/screen.lisp
+++ b/hemlock/screen.lisp
@@ -176,7 +176,7 @@
   (list (make-modeline-field
 	 :name :more-prompt
 	 :function #'(lambda (buffer window)
-		       (declare (ignore buffer window))
+		       (declare (ignore window))
 		       (ecase *more-prompt-action*
 			 (:more "--More--")
 			 (:flush "--Flush--")