Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.76.2.16 -r1.76.2.17
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	14 May 2019 20:05:05 -0000	1.76.2.16
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	25 Jun 2019 12:53:27 -0000	1.76.2.17
@@ -1263,12 +1263,7 @@
                  -orderby "r.revision_id desc"]
 
     ::xo::dc foreach revisions_select $sql {
-      if {$content_length < 1024} {
-        if {$content_length eq ""} {set content_length 0}
-        set content_size_pretty "[lc_numeric $content_length] [_ file-storage.bytes]"
-      } else {
-        set content_size_pretty "[lc_numeric [format %.2f [expr {$content_length/1024.0}]]] [_ file-storage.kb]"
-      }
+      set content_size_pretty [util::content_size_pretty -size $content_length]
 
       set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]