--- a/ZeroDivide.st	Fri Aug 29 20:27:26 2003 +0200
+++ b/ZeroDivide.st	Fri Aug 29 21:08:08 2003 +0200
@@ -13,6 +13,33 @@
 "
     Raised when a division by zero is attempted.
 "
+!
+
+examples
+"
+    the following leads into a debugger:
+                                                                    [exBegin]
+        |divisor|
+
+        divisor := 0.
+        Transcript showCR: ( 5 / divisor ).
+                                                                    [exEnd]
+
+
+    the following does NOT leads into a debugger:
+                                                                    [exBegin]
+        |divisor|
+
+        divisor := 0.
+        [
+            Transcript showCR: ( 5 / divisor ).
+        ] on:ZeroDivide 
+            do:
+                [
+                    Transcript flash.
+                ]
+                                                                    [exEnd]
+"
 ! !
 
 !ZeroDivide class methodsFor:'initialization'!
@@ -44,6 +71,7 @@
 !ZeroDivide class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.4 2002-07-31 14:33:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.5 2003-08-29 19:08:08 cg Exp $'
 ! !
+
 ZeroDivide initialize!