diff --git a/scheme/cmdline.scm b/scheme/cmdline.scm
index 1c04297..4eed9bd 100644
--- a/scheme/cmdline.scm
+++ b/scheme/cmdline.scm
@@ -139,7 +139,8 @@
 	  (cond
 	   ((eof-object? c)
 	    (lp c (if (or cursor?
-			  (= (current-column port) cursor-index))
+			  (and cursor-index
+			       (= (current-column port) cursor-index)))
 		      (cons (make-empty-to-complete cursor-index)
 			    tokens)
 		      tokens)))