diff --git a/revbank b/revbank
index cde8e16..2462928 100755
--- a/revbank
+++ b/revbank
@@ -17,7 +17,7 @@ use RevBank::Global;
 use RevBank::Messages;
 use RevBank::Cart;
 
-our $VERSION = "4.2.2";
+our $VERSION = "4.2.4";
 our %HELP1 = (
     "abort" => "Abort the current transaction",
 );
@@ -81,11 +81,11 @@ sub prompt($prompt, $plugins, $completions) {
     });
 
     if ($retry) {
-        my $trailing = "@{ pop @retry }";
-        my $rejected = pop @retry;
-        my $accepted = "@retry";
-        $readline->insert_text("$accepted $rejected $trailing");
-        $readline->Attribs->{point} = 1 + length $accepted;
+        my @trailing = @{ pop @retry };
+        my @rejected = pop @retry;
+        my @accepted = @retry;
+        $readline->insert_text(join " ", @accepted, @rejected, @trailing);
+        $readline->Attribs->{point} = @accepted ? 1 + length "@accepted" : 0;
         @retry = ();
         $retry = 0;
     }