Index: openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl	13 Jan 2005 13:58:27 -0000	1.9
+++ openacs-4/packages/news-aggregator/tcl/news-aggregator-procs.tcl	7 Apr 2018 16:58:52 -0000	1.10
@@ -32,10 +32,10 @@
     if {$diff < 120 && $diff > 60} {
         set to_return "1 hour and "
     } elseif {$diff >= 60} {
-        set to_return "[expr $diff / 60] hours and "
+        set to_return "[expr {$diff / 60}] hours and "
     }
-    set mins [expr $diff % 60]
-    if {[string equal 1 $mins]} {
+    set mins [expr {$diff % 60}]
+    if {"1" eq $mins} {
         append to_return "1 minute ago"
     } else {
         append to_return "$mins minutes ago"