--- a/ZeroDivide.st	Wed Jul 31 16:32:00 2002 +0200
+++ b/ZeroDivide.st	Wed Jul 31 16:35:49 2002 +0200
@@ -15,6 +15,12 @@
 "
 ! !
 
+!ZeroDivide class methodsFor:'initialization'!
+
+initialize
+    NotifierString := 'division by zero'.
+! !
+
 !ZeroDivide methodsFor:'accessing'!
 
 dividend
@@ -38,5 +44,6 @@
 !ZeroDivide class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.3 2001-11-17 11:39:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.4 2002-07-31 14:33:05 cg Exp $'
 ! !
+ZeroDivide initialize!