diff --git a/src/lsp/cmdline.lsp b/src/lsp/cmdline.lsp
index 4146cfce6..ab1f45cf0 100644
--- a/src/lsp/cmdline.lsp
+++ b/src/lsp/cmdline.lsp
@@ -95,13 +95,15 @@ Usage: ecl [-? | --help]
 	    ((null rule)
 	     (command-arg-error "Unknown command line option ~A.~%" option))
 	    (t
-	     (let ((pattern (third rule)))
+	     (let ((pattern (copy-tree (third rule))))
 	       (unless (zerop (second rule))
 		 (when (null option-list)
 		   (command-arg-error
 		    "Missing argument after command line option ~A.~%"
 		    option))
+		 (print pattern)
 		 (nsubst (pop option-list) 1 pattern))
+	       (print pattern)
 	       (push pattern commands)))))))
 
 (defun process-command-args (&optional (args (rest (command-args))))