--- a/HandlerCollection.st	Mon Jul 26 17:50:45 1999 +0200
+++ b/HandlerCollection.st	Wed Jul 28 23:00:09 1999 +0200
@@ -11,10 +11,10 @@
 "
 
 OrderedCollection subclass:#HandlerCollection
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Exceptions'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Exceptions'
 !
 
 !HandlerCollection class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HandlerCollection.st,v 1.4 1995-11-11 15:21:22 cg Exp $'
-!
-
 documentation
 "
     A HandlerCollection allows a group of unrelated signals to be handled
@@ -47,6 +43,31 @@
 "
 ! !
 
+!HandlerCollection methodsFor:'adding'!
+
+on:aSignal handle:aHandler
+    "add a signal<->handler pair to the receiver collection"
+
+    self addFirst:(aSignal -> aHandler)
+! !
+
+!HandlerCollection methodsFor:'private'!
+
+from:start to:stop handleDo:aBlock
+    "this method recursively sets up a bunch of nested
+     handlers, and finally evaluates the argument, aBlock"
+
+    |signalHandlerPair|
+
+    stop < start ifTrue:[
+	^ aBlock value
+    ].
+    signalHandlerPair := self at:start.
+    ^ (signalHandlerPair key) 
+	  handle:(signalHandlerPair value)
+	  do:[self from:start+1 to:stop handleDo:aBlock]
+! !
+
 !HandlerCollection methodsFor:'save evaluation'!
 
 handleDo:aBlock
@@ -90,28 +111,8 @@
     "
 ! !
 
-!HandlerCollection methodsFor:'private'!
-
-from:start to:stop handleDo:aBlock
-    "this method recursively sets up a bunch of nested
-     handlers, and finally evaluates the argument, aBlock"
-
-    |signalHandlerPair|
+!HandlerCollection class methodsFor:'documentation'!
 
-    stop < start ifTrue:[
-	^ aBlock value
-    ].
-    signalHandlerPair := self at:start.
-    ^ (signalHandlerPair key) 
-	  handle:(signalHandlerPair value)
-	  do:[self from:start+1 to:stop handleDo:aBlock]
+version
+    ^ '$Header: /cvs/stx/stx/libbasic2/HandlerCollection.st,v 1.5 1999-07-28 21:00:09 cg Exp $'
 ! !
-
-!HandlerCollection methodsFor:'adding'!
-
-on:aSignal handle:aHandler
-    "add a signal<->handler pair to the receiver collection"
-
-    self addFirst:(aSignal -> aHandler)
-! !
-