diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index e6f04bc..1c904e7 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -237,11 +237,8 @@
      (let ((viewer
 	    (find/init-plugin-for-result
 	     (eval-string command-line))))
-       (let* ((tokens (split-command-line command-line))
-	      (command (car tokens))
-	      (args (cdr tokens))
-	      (new-entry
-	       (make-history-entry command args viewer)))
+       (let ((new-entry
+              (make-history-entry command-line '() viewer)))
 	 ;; #### shouldn't we use some kind of insertion here?
 	 (append-to-history! new-entry)
 	 (signal-result-buffer-object-change)