Index: openacs-4/packages/news/tcl/test/news-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/test/news-test-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/news/tcl/test/news-test-procs.tcl	6 Oct 2003 12:11:23 -0000	1.2
+++ openacs-4/packages/news/tcl/test/news-test-procs.tcl	30 Sep 2013 10:51:35 -0000	1.3
@@ -17,11 +17,11 @@
     @author Peter Marklund
 } {
     set now_seconds [clock scan now]
-    set offset [expr 60*60*24*10]
+    set offset [expr {60*60*24*10}]
     set date_format "%Y-%m-%d"
-    set future_seconds [expr $now_seconds + $offset]
+    set future_seconds [expr {$now_seconds + $offset}]
     set future_date [clock format $future_seconds -format $date_format]
-    set past_seconds [expr $now_seconds - $offset]
+    set past_seconds [expr {$now_seconds - $offset}]
     set past_date [clock format $past_seconds -format $date_format]
 
     # Scheduled for publish, no archive
@@ -68,7 +68,7 @@
 } {
     set pretty_status [news_pretty_status -publish_date $publish_date -archive_date $archive_date -status $status]
     aa_true "publish_date=\"$publish_date\" archive_date=\"$archive_date\" status=\"$status\" pretty_status=\"$pretty_status\"" \
-        [expr ![empty_string_p $pretty_status]]
+        [expr {$pretty_status ne ""}] 
 
     set db_news_status [news::test::get_news_status \
                            -publish_date $publish_date \