--- a/ArithmeticValue.st	Sat Apr 13 14:27:46 1996 +0200
+++ b/ArithmeticValue.st	Sat Apr 13 14:35:23 1996 +0200
@@ -11,12 +11,12 @@
 "
 
 Magnitude subclass:#ArithmeticValue
-	 instanceVariableNames:''
-	 classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal
-                UnderflowSignal ArithmeticSignal AnyArithmeticSignal
-                UnorderedSignal'
-	 poolDictionaries:''
-	 category:'Magnitude-Numbers'
+	instanceVariableNames:''
+	classVariableNames:'DivisionByZeroSignal DomainErrorSignal OverflowSignal
+		UnderflowSignal ArithmeticSignal AnyArithmeticSignal
+		UnorderedSignal'
+	poolDictionaries:''
+	category:'Magnitude-Numbers'
 !
 
 !ArithmeticValue class methodsFor:'documentation'!
@@ -174,7 +174,12 @@
 // something
     "return the integer quotient of the receiver and the argument"
 
-    ^ (self / something) floor
+    "/ changed: the code below may lead to infinite recursion
+
+    ^ self subclassResponsibility
+"/    ^ (self / something) floor
+
+    "Modified: 13.4.1996 / 14:35:03 / cg"
 !
 
 \\ something
@@ -664,6 +669,6 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.17 1995-12-07 21:34:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.18 1996-04-13 12:35:23 cg Exp $'
 ! !
 ArithmeticValue initialize!