--- a/UnitConverter.st	Tue Feb 11 00:26:26 2003 +0100
+++ b/UnitConverter.st	Wed Feb 12 17:03:30 2003 +0100
@@ -762,6 +762,9 @@
 !
 
 fileSizeStringFor:nBytes
+    "return a useful string for a size-in-bytes; returns Kb, Mb or Gb as required.
+     Provided here since this is so common..."
+
     |unitString n|
 
     nBytes < (500 * 1024 * 1024) ifTrue:[
@@ -910,5 +913,5 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.23 2003-01-09 17:16:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.24 2003-02-12 16:03:30 cg Exp $'
 ! !