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.52 -r1.53
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	22 Jul 2018 08:26:28 -0000	1.52
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Jul 2018 08:14:33 -0000	1.53
@@ -1075,14 +1075,14 @@
 			where package_key = :package_key and parameter_name = :parameter_name
 		    }]
 		    aa_equals "check parameter::set_default" $value $value_db
-		    incr value 10
+                    set value [expr {int($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
 
-		    incr value 10
+                    set value [expr {int($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] \