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.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	31 Aug 2006 20:08:51 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-apm-procs.tcl	10 Jan 2007 21:22:12 -0000	1.2
@@ -16,7 +16,7 @@
 
         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 list_index [randomRange [expr {[llength $package_list] - 1}]]
         set package_key [lrange $package_list $list_index $list_index]
       
 	set parameter_name [ad_generate_random_string]
@@ -31,7 +31,7 @@
        # Choose randomly the parameter whether will be string or number.
        # Also choose randomly its default value.
         set datatype [lrange $values $index $index] 
-        if { [string equal $datatype "number"]} {
+        if {$datatype eq "number"} {
             set default_value 0
         } else {
             set default_value [ad_generate_random_string]
@@ -56,7 +56,7 @@
 
         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 list_index [randomRange [expr {[llength $package_list] - 1}]]
         set package_key [lrange $package_list $list_index $list_index]
         
         set instance_name $package_key