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 -r1.53 -r1.54
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Jul 2018 08:14:33 -0000	1.53
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	24 Jul 2018 08:35:28 -0000	1.54
@@ -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 {int($value + 10)}]
+                    set value [expr {$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 {int($value + 10)}]
+                    set value [expr {$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] \