Index: openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl	8 Aug 2006 21:26:23 -0000	1.2
+++ openacs-4/packages/dotlrn/tcl/test/dotlrn-procs.tcl	1 Nov 2013 21:08:30 -0000	1.3
@@ -23,7 +23,7 @@
 	    set date [template::util::date::today]
                 
 	    set year [template::util::date::get_property year $date]
-            set next_year [expr $year+1]
+            set next_year [expr {$year+1}]
             set day [template::util::date::get_property day $date]
             set month [template::util::date::get_property month $date]
                 
@@ -60,7 +60,7 @@
 	    set date [template::util::date::today]
 		
 	    set year [template::util::date::get_property year $date]
-	    set next_year [expr $year+1]
+	    set next_year [expr {$year+1}]
 	    set day [template::util::date::get_property day $date]
 	    set month [template::util::date::get_property month $date]