--- a/Integer.st	Fri Aug 25 12:38:25 2017 +0200
+++ b/Integer.st	Fri Aug 25 12:38:33 2017 +0200
@@ -794,8 +794,6 @@
     "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 
-
-
 !Integer class methodsFor:'class initialization'!
 
 initialize
@@ -852,7 +850,6 @@
     "Modified: 18.7.1996 / 12:26:38 / cg"
 ! !
 
-
 !Integer class methodsFor:'prime numbers'!
 
 flushPrimeCache
@@ -1230,7 +1227,6 @@
     ^ self == Integer
 ! !
 
-
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 highWord
@@ -1472,15 +1468,16 @@
 >> aNumber
     "V'Age compatibility: right shift"
 
-    ^ self bitShift:(aNumber negated)
+    ^ self rightShift:aNumber
 
     "
      1 >> -5
      64 >> 5
     "
+
+    "Modified: / 25-08-2017 / 12:32:47 / cg"
 ! !
 
-
 !Integer methodsFor:'bcd conversion'!
 
 decodeFromBCD
@@ -2945,9 +2942,9 @@
     aLowBit := a lowBit - 1.
     bLowBit := b lowBit - 1.
     shift := aLowBit min:bLowBit.
-    b := b bitShift:(bLowBit negated).
+    b := b rightShift:bLowBit.
     [a = 0] whileFalse:[
-        a := a bitShift:(aLowBit negated).
+        a := a rightShift:aLowBit.
         a < b ifTrue:[
             t := a. a := b. b := t
         ].
@@ -2956,8 +2953,8 @@
     ].
     ^ b bitShift:shift
 
-    "Created: 1.3.1997 / 16:38:17 / cg"
-    "Modified: 1.3.1997 / 16:45:17 / cg"
+    "Created: / 01-03-1997 / 16:38:17 / cg"
+    "Modified: / 25-08-2017 / 12:33:09 / cg"
 ! !
 
 
@@ -4989,7 +4986,6 @@
     "Created: / 09-01-2012 / 17:18:06 / cg"
 ! !
 
-
 !Integer methodsFor:'special modulo arithmetic'!
 
 add_32:anInteger