Index: openacs-4/packages/file-storage/lib/folder-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-links.tcl,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/file-storage/lib/folder-links.tcl	15 Mar 2019 09:14:06 -0000	1.5.2.2
+++ openacs-4/packages/file-storage/lib/folder-links.tcl	25 Jun 2019 13:02:19 -0000	1.5.2.3
@@ -66,12 +66,7 @@
         append content_size_pretty " [_ file-storage.items]"
         set pretty_type "Folder"
     } else {
-        if {$content_size < 1024} {
-            set content_size_pretty "[lc_numeric $content_size] [_ file-storage.bytes]"
-        } else {
-            set content_size_pretty "[lc_numeric [expr {$content_size / 1024 }]] [_ file-storage.kb]"
-        }
-
+        set content_size_pretty [util::content_size_pretty -size $content_size]
     }
 
     set name [lang::util::localize $name]