--- a/ExceptionHandlerSet.st	Fri Feb 02 23:22:49 2018 +0100
+++ b/ExceptionHandlerSet.st	Mon Feb 05 00:40:49 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -42,7 +44,7 @@
     An ExceptionHandlerSet allows a group of unrelated signals to be handled
     by individual handlers - their evaluation is equivalent to a corresponding
     number of nested signal handlers, but more efficient and
-    somwehat easier to program.
+    somwehat easier to program and read.
 
     [author:]
         Stefan Vogel
@@ -122,21 +124,6 @@
     "Created: / 26.7.1999 / 09:51:37 / stefan"
 ! !
 
-!ExceptionHandlerSet methodsFor:'adding'!
-
-on:anExceptionHandler do:aHandlerBlock
-    "add a handler for aSignal to the set"
-
-    anExceptionHandler isBehavior ifTrue:[
-        "load class, if not yet loaded"
-        anExceptionHandler autoload.
-    ].
-    anExceptionHandler isExceptionHandler ifFalse:[
-        SignalError raiseWith:anExceptionHandler errorString:' - trying to add a non-exceptionHandler to a SignalSet'.
-    ].
-    self at:anExceptionHandler put:aHandlerBlock
-! !
-
 !ExceptionHandlerSet methodsFor:'queries'!
 
 accepts:anExceptionHandler
@@ -318,6 +305,21 @@
     "Modified: / 26.7.1999 / 11:36:47 / stefan"
 ! !
 
+!ExceptionHandlerSet methodsFor:'setup'!
+
+on:anExceptionHandler do:aHandlerBlock
+    "add a handler for aSignal to the set"
+
+    anExceptionHandler isBehavior ifTrue:[
+        "load class, if not yet loaded"
+        anExceptionHandler autoload.
+    ].
+    anExceptionHandler isExceptionHandler ifFalse:[
+        SignalError raiseWith:anExceptionHandler errorString:' - trying to add a non-exceptionHandler to a SignalSet'.
+    ].
+    self at:anExceptionHandler put:aHandlerBlock
+! !
+
 !ExceptionHandlerSet methodsFor:'testing'!
 
 isExceptionHandler