--- a/ShortFloat.st	Fri Dec 18 15:40:48 2009 +0100
+++ b/ShortFloat.st	Fri Dec 18 15:41:46 2009 +0100
@@ -354,14 +354,14 @@
     self isIEEEFormat ifFalse:[self error:'unsupported operation'].
 
     UninterpretedBytes isBigEndian ifFalse:[
-	"swap the bytes"
-	8 to:4 by:-1 do:[:i |
-	    aFloat basicAt:i put:(aStream next)
-	].
-	^ self
+        "swap the bytes"
+        4 to:1 by:-1 do:[:i |
+            aFloat basicAt:i put:(aStream next)
+        ].
+        ^ self
     ].
     1 to:4 do:[:i |
-	aFloat basicAt:i put:aStream next
+        aFloat basicAt:i put:aStream next
     ]
 
     "not part of libboss, as this is also used by others (TIFFReader)"
@@ -385,14 +385,14 @@
     self isIEEEFormat ifFalse:[self error:'unsupported operation'].
 
     UninterpretedBytes isBigEndian ifFalse:[
-	"swap the bytes"
-	8 to:4 by:-1 do:[:i |
-	    aStream nextPut:(float basicAt:i).
-	].
-	^ self
+        "swap the bytes"
+        4 to:1 by:-1 do:[:i |
+            aStream nextPut:(float basicAt:i).
+        ].
+        ^ self
     ].
     1 to:4 do:[:i |
-	aStream nextPut:(float basicAt:i).
+        aStream nextPut:(float basicAt:i).
     ]
 
     "not part of libboss, as this is also used by others (TIFFReader)"
@@ -1721,9 +1721,9 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.102 2009-12-18 14:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.103 2009-12-18 14:41:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.102 2009-12-18 14:40:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.103 2009-12-18 14:41:46 cg Exp $'
 ! !