diff --git a/src/callback.c b/src/callback.c
index 7a1202c3..96791a6c 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -2635,6 +2635,9 @@ int rstate; /* (reduced state, without ShiftMask) */
     }
     /* stuff that can be done reentrantly ... */
     tclsetvar("tclstop", "1"); /* stop simulation if any running */
+    if(tclgetboolvar("persistent_command") && (xctx->last_command & STARTWIRE)) {
+      xctx->last_command &= ~STARTWIRE;
+    }
     break;
    }
    if(key=='z' && rstate == 0)                   /* zoom box */