--- a/ExceptionHandlerSet.st	Fri Mar 19 14:05:35 2004 +0100
+++ b/ExceptionHandlerSet.st	Fri Mar 19 14:08:18 2004 +0100
@@ -115,6 +115,12 @@
 
 !ExceptionHandlerSet methodsFor:'adding'!
 
+on:aSignal do:aHandler
+    "add a handler for aSignal to the set"
+
+    self at:aSignal put:aHandler
+!
+
 on:aSignal handle:aHandler
     "add a handler for aSignal to the set"
 
@@ -301,5 +307,5 @@
 !ExceptionHandlerSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.10 2002-07-15 09:40:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.11 2004-03-19 13:08:18 stefan Exp $'
 ! !