Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	30 Sep 2017 17:42:32 -0000	1.6
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	19 Feb 2018 19:00:23 -0000	1.7
@@ -109,9 +109,10 @@
     if { [catch {package require mime 1.5.2}] } {
    
         set gmt [clock format $clock -format "%Y-%m-%d %H:%M:%S" -gmt true]
-        if {[set diff [expr {($clock-[clock scan $gmt])/60}]] < 0} {
+        set diff [expr {($clock - [clock scan $gmt]) / 60}]
+        if {$diff < 0} {
             set s -
-            set diff [expr {-($diff)}]
+            set diff [expr {-$diff}]
         } else {
             set s +
         }