diff --git a/hledger/Hledger/Cli/Add.hs b/hledger/Hledger/Cli/Add.hs
index 6296c25db..3539a0683 100644
--- a/hledger/Hledger/Cli/Add.hs
+++ b/hledger/Hledger/Cli/Add.hs
@@ -303,6 +303,7 @@ amountCompleter = completer []
 completer :: [String] -> String -> CompletionFunc IO
 completer completions def = completeWord Nothing "" completionsFor
     where
+      simpleCompletion' s = (simpleCompletion s){isFinished=False}
       completionsFor "" = return [simpleCompletion' def]
       completionsFor i  = return (map simpleCompletion' ciprefixmatches)
           where