--- a/Integer.st	Wed Apr 22 21:11:34 1998 +0200
+++ b/Integer.st	Wed Apr 22 21:12:44 1998 +0200
@@ -921,7 +921,11 @@
 	    "/
 	    "/ requested factorial of a negative number
 	    "/
-	    ^ DomainErrorSignal raiseErrorString:'factorial of negative number'
+            ^ self class
+                raise:#domainErrorSignal
+                receiver:self
+                selector:#factorial
+                errorString:'factorial of negative number'
 	].
 	^ 1
     ].
@@ -1492,5 +1496,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.79 1998-04-14 17:20:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.80 1998-04-22 19:12:33 cg Exp $'
 ! !