Index: openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl	4 Jun 2006 00:45:20 -0000	1.15
+++ openacs-4/packages/acs-admin/www/apm/packages-install-4.tcl	10 Jan 2007 21:21:59 -0000	1.16
@@ -53,14 +53,14 @@
     set data_model_files [list]
     # Find the correct data model files for this package.
     foreach file $sql_files {
-	if {![string compare [lindex $file 2] $package_key]} {
+	if {[lindex $file 2] eq $package_key } {
 	    # Pass on the file path and its type.
 	    lappend data_model_files $file
 	}
     }
 
     # Mount path of package
-    if { [lsearch $mount_p $package_key] != -1 && [info exists mount_path($package_key)] && ![empty_string_p $mount_path($package_key)] } {
+    if { [lsearch $mount_p $package_key] != -1 && [info exists mount_path($package_key)] && $mount_path($package_key) ne "" } {
         set selected_mount_path $mount_path($package_key)
     } else {
         set selected_mount_path ""
@@ -69,7 +69,7 @@
     # Install the packages.
     ns_log Debug "APM: Installing package at $package_path."
 
-    set enable_p [expr [lsearch -exact $pkg_enable_list $package_key] != -1]
+    set enable_p [expr {[lsearch -exact $pkg_enable_list $package_key] != -1}]
 
     set version_id [apm_package_install \
                 -enable=$enable_p \