--- a/SmallInteger.st	Mon Feb 18 11:14:27 2002 +0100
+++ b/SmallInteger.st	Mon Feb 18 16:11:24 2002 +0100
@@ -1006,7 +1006,7 @@
     (shiftCount isMemberOf:SmallInteger) ifTrue:[
         ^ (LargeInteger value:self) bitShift:shiftCount
     ].
-    ^ self bitShift:(shiftCount coerce:1)
+    ^ self bitShift:(1 coerce:shiftCount)   "/ is this a good idea ?
 !
 
 bitTest:aMask
@@ -3354,5 +3354,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.141 2001-12-19 14:25:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.142 2002-02-18 15:11:24 cg Exp $'
 ! !