Index: openacs-4/packages/acs-admin/www/install/install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/install/install.tcl	4 Oct 2003 03:03:29 -0000	1.1
+++ openacs-4/packages/acs-admin/www/install/install.tcl	16 Oct 2003 11:42:55 -0000	1.2
@@ -36,7 +36,7 @@
         set package_key $version(package.key)
             
         # If in upgrade mode, only add to list if it's an upgrade
-        if { !$upgrade_p || [string $version(install_type) upgrade] } {
+        if { !$upgrade_p || [string equal $version(install_type) upgrade] } {
             set package([string toupper $version(package-name)]) \
                 [list \
                      $version(package.key) \