Fix handling of Exit because in GS64 is subclass of Error

ba-st · Sep 20, 2023 · d1438b2 · d1438b2
1 parent 75da14f
commit d1438b2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/source/Launchpad-Applications/ReleasedApplicationMode.class.st b/source/Launchpad-Applications/ReleasedApplicationMode.class.st
@@ -25,5 +25,5 @@ ReleasedApplicationMode >> isDebugMode [
 { #category : #utilities }
 ReleasedApplicationMode >> value: aBlock onErrorDo: errorHandler [
 
-	^ aBlock on: Error do: errorHandler
+	^ aBlock on: Error except: Exit do: errorHandler
 ]