diff --git a/src/code/commandline.lisp b/src/code/commandline.lisp
index be67ddcd718d3a6da468d234898a81e7145c669b..3c97fe99dd7d076e710e31cefb3f66a39fb4aad9 100644
--- a/src/code/commandline.lisp
+++ b/src/code/commandline.lisp
@@ -136,7 +136,7 @@
 		  (setf str nil))
 		(return nil))
 	      (push str word-list))
-	    (setq str (pop cmd-strings)))))))))
+	    (setq str (pop cmd-strings))))))))
 
 (defun get-command-line-switch (sname)
   "Accepts the name of a switch as a string and returns the value of