Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	19 Jul 2018 09:55:12 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	19 Jul 2018 10:16:56 -0000	1.8
@@ -56,12 +56,11 @@
 
         set package_list [db_list get_packages "select package_key from apm_package_types"]
         aa_log "List of packages: \{$package_list\}"
+
         set list_index [randomRange [expr {[llength $package_list] - 1}]]
         set package_key [lrange $package_list $list_index $list_index]
+        set instance_name "$package_key-[ad_generate_random_string]"
 
-        set instance_name $package_key
-        append instance_name "-[ad_generate_random_string]"
-
         aa_log "Package to be instantiated: $package_key"
         aa_log "Instance name to be added: $instance_name"
         set error_occurred [catch {