Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	20 Apr 2004 21:12:59 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	10 Jan 2007 21:22:06 -0000	1.10
@@ -49,16 +49,16 @@
     set instance_name $node(instance_name)
     set folder $node(name)
 } -on_submit {
-    if { [empty_string_p $instance_name] } {
+    if { $instance_name eq "" } {
         # Find the package pretty name from the list of packages
 
         foreach elm $packages {
-            if { [string equal [lindex $elm 1] $package_key] } {
+            if {[lindex $elm 1] eq $package_key} {
                 set instance_name [lindex $elm 0]
                 break
             }
         }
-        if { [empty_string_p $instance_name] } {
+        if { $instance_name eq "" } {
             error "Couldn't find package_key '$package_key' in list of system applications"
         }
 
@@ -76,7 +76,7 @@
                     -folder $folder \
                     -instance_name $instance_name]
 
-    if { [empty_string_p $folder] } {
+    if { $folder eq "" } {
         form set_error application folder "This folder name is already used"
         break
     }