--- a/SFloat.st	Thu Aug 12 10:45:45 1999 +0200
+++ b/SFloat.st	Thu Aug 12 10:46:07 1999 +0200
@@ -595,16 +595,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:4) bitAnd:16r3F) bitShift:24) +
+    ^ (((self basicAt:4) bitAnd:16r1F) bitShift:24) +
       ((self basicAt:3) bitShift:16) +
       ((self basicAt:2) bitShift:8) +
       (self basicAt:1)
@@ -960,5 +960,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SFloat.st,v 1.48 1999-07-26 09:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SFloat.st,v 1.49 1999-08-12 08:46:07 cg Exp $'
 ! !

--- a/ShortFloat.st	Thu Aug 12 10:45:45 1999 +0200
+++ b/ShortFloat.st	Thu Aug 12 10:46:07 1999 +0200
@@ -595,16 +595,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:4) bitAnd:16r3F) bitShift:24) +
+    ^ (((self basicAt:4) bitAnd:16r1F) bitShift:24) +
       ((self basicAt:3) bitShift:16) +
       ((self basicAt:2) bitShift:8) +
       (self basicAt:1)
@@ -960,5 +960,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.48 1999-07-26 09:11:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.49 1999-08-12 08:46:07 cg Exp $'
 ! !