Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	19 Jul 2018 11:43:18 -0000	1.51
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	22 Jul 2018 08:26:28 -0000	1.52
@@ -1075,14 +1075,14 @@
 			where package_key = :package_key and parameter_name = :parameter_name
 		    }]
 		    aa_equals "check parameter::set_default" $value $value_db
-		    set value [expr {$value + 10}]
+		    incr value 10
 
 		    parameter::set_from_package_key -package_key $package_key -parameter $parameter_name -value $value
 		    aa_equals "check parameter::set_from_package_key" \
 			[parameter::get -package_id $package_id -parameter $parameter_name] \
 			$value
 
-		    set value [expr {$value + 10}]
+		    incr value 10
 		    parameter::set_value -package_id $package_id -parameter $parameter_name -value $value
 		    aa_equals "check parameter::set_value" \
 			[parameter::get -package_id $package_id -parameter $parameter_name] \