Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.34 -r1.34.2.1
--- openacs-4/packages/news/tcl/news-procs.tcl	30 Sep 2013 10:51:35 -0000	1.34
+++ openacs-4/packages/news/tcl/news-procs.tcl	3 Oct 2013 08:57:48 -0000	1.34.2.1
@@ -179,7 +179,7 @@
 
         if { $archive_date_seconds > $now_seconds } {
             # Scheduled for archive
-            set n_days_until_archive [expr ($archive_date_seconds - $now_seconds) / 86400]
+            set n_days_until_archive [expr {($archive_date_seconds - $now_seconds) / 86400}]
         }
     }
 
@@ -190,7 +190,7 @@
         if { $publish_date_seconds > $now_seconds } {
             # Will be published in the future
 
-            set n_days_until_publish [expr ($publish_date_seconds - $now_seconds) / 86400]
+            set n_days_until_publish [expr {($publish_date_seconds - $now_seconds) / 86400}]
         }
     }