Index: openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	14 Aug 2006 14:40:36 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/test/apm-parameter-test-procs.tcl	17 Aug 2006 08:43:17 -0000	1.2
@@ -8,7 +8,7 @@
     Test the registration of a parameter
 } {    
     set parameter_id [db_nextval "acs_object_id_seq"]
-    set parameter_name "New Parameter [ad_generate_random_string]"
+    set parameter_name [ad_generate_random_string]
     set description "Description for the new parameter"
     set package_key "acs-tcl"
     set default_value "5"
@@ -24,7 +24,7 @@
     Test the unregister of a parameter
 } {    
     set parameter_id [db_nextval "acs_object_id_seq"]
-    set parameter_name "New Parameter [ad_generate_random_string]"
+    set parameter_name [ad_generate_random_string]
     set description "Description for the new parameter"
     set package_key "acs-tcl"
     set default_value "10"
@@ -34,4 +34,4 @@
     apm_parameter_unregister $parameter_id
     set package_id [apm_package_id_from_key $package_key]    
     aa_true "check apm_parameter_unregister" [string equal [parameter::get -package_id $package_id -parameter $parameter_name] ""]
-}
\ No newline at end of file
+}