From f4771affe70c606c84eb59b2585e1557f7cd88c9 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Fri, 16 May 2014 05:49:42 -0700
Subject: [PATCH] SCP: Fix SET VERIFY which didn't work while processing
 command procedures

---
 scp.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scp.c b/scp.c
index c59ea4be..68e3ebb5 100644
--- a/scp.c
+++ b/scp.c
@@ -2454,7 +2454,7 @@ if (label) {
         cmdp = find_cmd (gbuf);                         /* return the errorStage things to the stat will be returned */
         goto Cleanup_Return;
         }
-}
+    }
 if (errabort)                                           /* -e flag? */
     set_on (1, NULL);                                   /* equivalent to ON ERROR RETURN */
 
@@ -2498,6 +2498,7 @@ do {
                 stat = cmdp->action (cmdp->arg, cptr);  /* exec other cmd */
         }
     else stat = SCPE_UNK;                               /* bad cmd given */
+    echo = sim_do_echo;                                 /* Allow for SET VERIFY */
     stat_nomessage = stat & SCPE_NOMESSAGE;             /* extract possible message supression flag */
     stat_nomessage = stat_nomessage || (!sim_show_message);/* Apply global suppression */
     stat = SCPE_BARE_STATUS(stat);                      /* remove possible flag */