Index: openacs-4/packages/xotcl-core/lib/revisions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/lib/revisions.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/xotcl-core/lib/revisions.tcl	18 May 2018 09:32:08 -0000	1.8
+++ openacs-4/packages/xotcl-core/lib/revisions.tcl	25 Jun 2019 12:53:27 -0000	1.8.2.1
@@ -74,11 +74,7 @@
   set version_number $version_number:
   set last_modified_ansi   [lc_time_system_to_conn $last_modified_ansi]
   set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
-  if {$content_size < 1024} {
-    set content_size_pretty "[lc_numeric $content_size] [_ file-storage.bytes]"
-  } else {
-    set content_size_pretty "[lc_numeric [format %.2f [expr {$content_size/1024.0}]]] [_ file-storage.kb]"
-  }
+  set content_size_pretty  [util::content_size_pretty -size $content_size]
 
   if {$name eq ""} {set name [_ file-storage.untitled]}
   set live_revision_link [export_vars -base make-live-revision \