From 03c01fddf28c28c0b50adcebe0f30e9f97a39936 Mon Sep 17 00:00:00 2001
From: Richard Frith-Macdonald <rfm@gnu.org>
Date: Fri, 10 Dec 2021 10:27:00 +0000
Subject: [PATCH] add fallback clear

---
 EcControl.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/EcControl.m b/EcControl.m
index fc53df5..4264e4b 100644
--- a/EcControl.m
+++ b/EcControl.m
@@ -920,7 +920,6 @@ static NSString*	cmdWord(NSArray* a, unsigned int pos)
 		    @"%@Clearing %@\n", m, alarm];
 		  alarm = [alarm clear];
 
-
 		  for (i = 0; i < [hosts count]; i++)
 		    {
 		      CommandInfo	*c = [hosts objectAtIndex: i];
@@ -938,6 +937,7 @@ static NSString*	cmdWord(NSArray* a, unsigned int pos)
 			  NS_ENDHANDLER
 			}
 		    }
+		  [self alarm: alarm];	// In case the originator failed
 		}
 	    }
 	  if (0 == [m length])