Index: openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	26 Apr 2004 18:50:47 -0000	1.10
+++ openacs-4/packages/acs-admin/www/apm/version-edit-2.tcl	10 Jan 2007 21:21:59 -0000	1.11
@@ -31,7 +31,7 @@
     if { [info exists attribute(validation_proc)] } {
         set attribute_error [eval $attribute(validation_proc) $attribute_value]
 
-        if { ![empty_string_p $attribute_error] } {
+        if { $attribute_error ne "" } {
             ad_return_complaint 1 $attribute_error
         }
     }
@@ -46,15 +46,15 @@
 
 # Figure out if we're changing version
 db_1row old_version_info {}
-set version_changed_p [expr ![string equal $version_name $old_version_name]]
+set version_changed_p [expr {$version_name ne $old_version_name }] 
 
-if { [string equal $old_version_name $version_name] } {
+if {$old_version_name eq $version_name} {
     # The version name didn't change, so don't attempt to upgrade
     set upgrade_p 0
 }
 
 # The user has to update the URL if he changes the name.
-if { $version_changed_p && [string equal $version_uri $old_version_uri] } {
+if { $version_changed_p && $version_uri eq $old_version_uri } {
     ad_return_complaint 1 {You have changed the version number but not the version URL. When creating
         a package for a new version, you must select a new URL for the version.}
 }