Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.21.2.9 -r1.21.2.10
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	16 May 2004 16:53:09 -0000	1.21.2.9
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	16 May 2004 17:24:35 -0000	1.21.2.10
@@ -138,11 +138,11 @@
     } else {
 	set type [string trimleft [file extension $file_upload_name] . ]
 	if {$content_size > 0 && $content_size < 1024} {
-	    set content_size_pretty [lc_numeric 1]
+	    set content_size_pretty "[lc_numeric $content_size] [_ file-storage.bytes]"
 	} else {
-	    set content_size_pretty [lc_numeric [expr $content_size / 1024 ]]
+	    set content_size_pretty "[lc_numeric [expr $content_size / 1024 ]] [_ file-storage.kb]"
 	}
-	append content_size_pretty " [_ file-storage.kb]"
+
     }
 
     set file_upload_name [fs::remove_special_file_system_characters -string $file_upload_name]