--- a/UnitConverter.st	Mon Jun 07 16:44:39 2004 +0200
+++ b/UnitConverter.st	Wed Jun 09 17:47:21 2004 +0200
@@ -828,7 +828,7 @@
     nBytes < (1000 * 1024 * 1024 * 1024) ifTrue:[
         nBytes < (1000 * 1024 * 1024) ifTrue:[
             nBytes < (1000 * 1024) ifTrue:[
-                nBytes < 1024 ifTrue:[
+                nBytes < 1000 ifTrue:[
                     n := nBytes.
                     unitString := '   '.
                 ] ifFalse:[
@@ -983,5 +983,5 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.34 2003-11-11 16:08:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.35 2004-06-09 15:47:21 cg Exp $'
 ! !