--- a/GenericException.st	Sun Apr 05 00:21:37 2020 +0200
+++ b/GenericException.st	Sun Apr 05 00:21:49 2020 +0200
@@ -340,15 +340,33 @@
 !GenericException class methodsFor:'converting'!
 
 , anExceptionHandler
-    "return a SignalSet with myself and anExceptionHandler"
+    "return a Handler (SignalSet) that accepts myself and anExceptionHandler"
 
     anExceptionHandler isNil ifTrue:[
         "Ignore nil exceptionHandler - it may be due to a missing (not loaded) expception class"    
         ^ self.
     ].
+"/ Debug code for Developers - should go into Lint:    
+"/    (self accepts:anExceptionHandler) ifTrue:[
+"/        "anExceptionHandler is already accepted by myself"    
+"/        self breakPoint:#SignalSet info:'Already accepted'.
+"/        ^ self.
+"/    ].
+"/    (anExceptionHandler accepts:self) ifTrue:[
+"/        "myself is already accepted by anExceptionHandler"    
+"/        self breakPoint:#SignalSet info:'Already accepted'.
+"/        ^ anExceptionHandler.
+"/    ].
+
     ^ SignalSet with:self with:anExceptionHandler
 
-    "Modified (format): / 09-12-2019 / 11:09:28 / Stefan Vogel"
+    "
+        ArithmeticError, ContextError
+        Error, OsError
+        OsError, Error
+    "
+
+    "Modified (comment): / 05-04-2020 / 00:21:09 / Stefan Vogel"
 ! !