diff --git a/hemlock/shell.lisp b/hemlock/shell.lisp
index e8c84eb8274c6df9bc5c74052db08edaac6c5e6c..6f52d73f2d54d2945b41258514e13492c5f059c9 100644
--- a/hemlock/shell.lisp
+++ b/hemlock/shell.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/shell.lisp,v 1.1.1.11 1993/08/25 02:10:35 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/shell.lisp,v 1.1.1.12 1993/08/25 02:29:39 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -234,7 +234,7 @@
 (defun set-current-shell ()
   (let ((old-buffer (value current-shell))
 	(first-old-shell (do-strings (var val *shell-names* nil)
-			   (declare (ignore var))
+			   (declare (ignore val))
 			   (return var))))
     (when (and (not old-buffer) (not first-old-shell))
       (editor-error "Nothing to set current shell to."))