diff --git a/hemlock/pop-up-stream.lisp b/hemlock/pop-up-stream.lisp
index 48b548f242e87344886abe6742f821681d8386ad..3549e27878df909627f1566acb568b0cb9a6a26e 100644
--- a/hemlock/pop-up-stream.lisp
+++ b/hemlock/pop-up-stream.lisp
@@ -29,7 +29,6 @@
 	     stream 1)))
 
 (defun random-typeout-line-sout (stream string start end)
-  (declare (ignore start end))
   (insert-string (random-typeout-stream-mark stream) string start end)
   (unless (random-typeout-stream-no-prompt stream)
     (let ((count (count #\newline string)))
@@ -160,7 +159,6 @@
   (insert-character (random-typeout-stream-mark stream) char))
 
 (defun random-typeout-full-sout (stream string start end)
-  (declare (ignore start end))
   (insert-string (random-typeout-stream-mark stream) string start end))
 
 (defun random-typeout-full-misc (stream operation &optional arg1 arg2)