--- a/Float.st	Wed Aug 11 19:33:20 1999 +0200
+++ b/Float.st	Thu Aug 12 10:45:45 1999 +0200
@@ -870,16 +870,16 @@
     |i|
 
     (self >= SmallInteger minVal and:[self <= SmallInteger maxVal]) ifTrue:[
-	i := self asInteger.
-	self = i ifTrue:[
-	    ^ i hash
-	].
+        i := self asInteger.
+        self = i ifTrue:[
+            ^ i hash
+        ].
     ].
 
     "
      mhmh take some of my value-bits to hash on
     "
-    ^ (((self basicAt:8) bitAnd:16r3F) bitShift:24) +
+    ^ (((self basicAt:8) bitAnd:16r1F) bitShift:24) +
       ((self basicAt:7) bitShift:16) +
       ((self basicAt:6) bitShift:8) +
       (self basicAt:5)
@@ -1908,6 +1908,6 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.96 1999-07-26 09:07:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.97 1999-08-12 08:45:45 cg Exp $'
 ! !
 Float initialize!