diff --git a/revbank b/revbank
index 2def6d3..a535275 100755
--- a/revbank
+++ b/revbank
@@ -60,6 +60,7 @@ sub prompt {
     my @matches;
     $readline->Attribs->{completion_entry_function} = sub {
         my ($word, $state) = @_;
+        return undef if $word eq "";
         @matches = grep /^\Q$word\E/i, @$completions if $state == 0;
         return shift @matches;
     };