From b9b8a496d6f205de6433718df5efbe0cad17a872 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Fri, 21 Aug 2020 12:06:11 -0700
Subject: [PATCH] SCP: Properly process program -T switch to invoke all library
 tests

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

diff --git a/scp.c b/scp.c
index 7c3b4257..67d29f75 100644
--- a/scp.c
+++ b/scp.c
@@ -15516,7 +15516,7 @@ detach_all (0, 0);                          /* Assure that all units are unattac
 cptr = get_glyph (cptr, gbuf, 0);
 if (gbuf[0] == '\0')
     strcpy (gbuf, "ALL");
-else {
+if (strcmp (gbuf, "ALL") != 0) {
     if (!find_dev (gbuf))
         return sim_messagef (SCPE_ARG, "No such device: %s\n", gbuf);
     }