--- a/ZeroDivide.st	Wed Jan 23 10:08:55 2013 +0000
+++ b/ZeroDivide.st	Mon Jan 28 21:53:19 2013 +0000
@@ -65,14 +65,48 @@
 "
 ! !
 
+
 !ZeroDivide class methodsFor:'initialization'!
 
 initialize
     NotifierString := 'division by zero'.
 ! !
 
+
 !ZeroDivide methodsFor:'accessing'!
 
+defaultResumeValue
+    "no, we return infinity here, if ever proceeded"
+
+    ^ parameter receiver class infinity
+
+    "
+     |a b|
+
+     a := 5.
+     b := 0.
+     ZeroDivide handle:[:ex |
+        Transcript showCR:('division by zero - dividend was: ' , ex dividend printString).
+        ex proceed
+     ] do:[
+        a / b
+     ]            
+    "
+
+    "
+     |a b|
+
+     a := 5.0.
+     b := 0.0.
+     ZeroDivide handle:[:ex |
+        Transcript showCR:('division by zero - dividend was: ' , ex dividend printString).
+        ex proceed
+     ] do:[
+        a / b
+     ]            
+    "
+!
+
 dividend
     "Return the number that was being divided by zero."
 
@@ -91,17 +125,16 @@
     "
 ! !
 
+
 !ZeroDivide class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.7 2006/12/15 11:02:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.8 2013-01-25 17:19:34 cg Exp $'
 !
 
 version_SVN
     ^ '$Id: ZeroDivide.st 10761 2012-01-19 11:46:00Z vranyj1 $'
 ! !
 
+
 ZeroDivide initialize!
-
-
-