--- a/ArithmeticValue.st	Sun Feb 23 19:16:42 2014 +0100
+++ b/ArithmeticValue.st	Sun Feb 23 19:18:50 2014 +0100
@@ -280,6 +280,14 @@
     "
 !
 
+modulusOf:aNumber
+    "return aNumber modulo the reciever.
+     The remainder has the same sign as something.
+     Defined for protocol compatibility with ModuloNumber."
+
+    ^ aNumber \\ self
+!
+
 negated
     "return the receiver negated"
 
@@ -1354,11 +1362,11 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.92 2013-05-27 08:14:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.93 2014-02-23 18:18:50 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.92 2013-05-27 08:14:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.93 2014-02-23 18:18:50 stefan Exp $'
 ! !