--- a/SmallInteger.st	Sun Feb 12 20:53:21 2012 +0100
+++ b/SmallInteger.st	Sun Feb 12 20:57:49 2012 +0100
@@ -691,7 +691,7 @@
     (aNumber = 0) ifTrue:[
         ^ ZeroDivide raiseRequestWith:thisContext.
     ].
-    ^ aNumber moduluFromInteger:self
+    ^ aNumber moduloFromInteger:self
 
     "
      9 \\ 4  == 1 ifFalse:[self halt].
@@ -703,7 +703,7 @@
      1000 \\ 3600000 == 1000 ifFalse:[self halt]
     "
 
-    "Modified: / 09-08-2010 / 19:52:02 / cg"
+    "Modified: / 12-02-2012 / 20:43:40 / cg"
 !
 
 abs
@@ -4090,9 +4090,9 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.194 2012-01-31 11:17:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.195 2012-02-12 19:57:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.194 2012-01-31 11:17:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.195 2012-02-12 19:57:49 cg Exp $'
 ! !