--- a/ArithmeticValue.st	Tue Jun 21 15:17:59 2005 +0200
+++ b/ArithmeticValue.st	Mon Jun 27 12:20:44 2005 +0200
@@ -208,6 +208,12 @@
     self subclassResponsibility
 ! !
 
+!ArithmeticValue class methodsFor:'queries'!
+
+isAbstract
+    ^ self == ArithmeticValue
+! !
+
 !ArithmeticValue methodsFor:'arithmetic'!
 
 * something
@@ -1265,7 +1271,7 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.69 2005-04-18 19:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.70 2005-06-27 10:20:33 cg Exp $'
 ! !
 
 ArithmeticValue initialize!