--- a/ExceptionHandlerSet.st	Mon Jan 24 18:28:21 2005 +0100
+++ b/ExceptionHandlerSet.st	Mon Jan 24 18:36:09 2005 +0100
@@ -128,9 +128,8 @@
     "add a handler for aSignal to the set"
 
     aSignalOrException isBehavior ifTrue:[
-        aSignalOrException isLoaded ifFalse:[
-            aSignalOrException autoload.
-        ].
+        "load class, if not yet loaded"
+        aSignalOrException autoload.
     ].
     self at:aSignalOrException put:aHandler
 ! !
@@ -216,13 +215,6 @@
         (eachExceptionHandler handles:anException) ifTrue:[^ true]
     ].
     ^ false
-!
-
-isExceptionHandler
-    "return true, if the receiver responds to the exception handler protocol,
-     especially to the #accepts: and #handles: messages"
-
-    ^ true
 ! !
 
 !ExceptionHandlerSet methodsFor:'save evaluation'!
@@ -323,8 +315,17 @@
     "Modified: / 26.7.1999 / 11:36:47 / stefan"
 ! !
 
+!ExceptionHandlerSet methodsFor:'testing'!
+
+isExceptionHandler
+    "return true, if the receiver responds to the exception handler protocol,
+     especially to the #accepts: and #handles: messages"
+
+    ^ true
+! !
+
 !ExceptionHandlerSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.15 2005-01-20 12:26:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.16 2005-01-24 17:36:09 stefan Exp $'
 ! !