diff --git a/hemlock/htext2.lisp b/hemlock/htext2.lisp
index edfd0a8380dda27685e57998d50a12118d85462e..9ace9f8694130d13cc6b98e7b05c3f5ab5ac763d 100644
--- a/hemlock/htext2.lisp
+++ b/hemlock/htext2.lisp
@@ -400,7 +400,6 @@
 
 
 (defun %print-after-mark (mark stream)
-  (declare (ignore d))
   (if (mark-line mark)
       (let* ((line (mark-line mark))
 	     (chars (line-chars line))