Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.18 -r1.189.2.19
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	26 Jun 2019 16:21:20 -0000	1.189.2.18
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	27 Jun 2019 17:36:53 -0000	1.189.2.19
@@ -3470,11 +3470,15 @@
     set len [string length $size]
 
     if {$size < $div} {
-        set size_pretty [format "%s B" [lc_numeric $size]]
+        set size_pretty [format "%s B" $size]
     } else {
         set unit [expr {($len - 1) / 3}]
-        set size_pretty [format "%.${precision}f %s" [lc_numeric [expr {$size / pow($div,$unit)}]] [lindex $units $unit]]
+        set size_pretty [format "%.${precision}f %s" [expr {$size / pow($div,$unit)}] [lindex $units $unit]]
     }
+    #
+    # Localize dot/comma just before return
+    #
+    set size_pretty "[lc_numeric [lindex $size_pretty 0]] [lindex $size_pretty 1]"
 
     return $size_pretty
 }