Index: openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	4 Jun 2006 00:45:45 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	10 Jan 2007 21:22:08 -0000	1.5
@@ -36,23 +36,23 @@
     # Get the node ID of this subsite
     set node_id [ad_conn node_id]
 
-    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"
         }
 
     }
 
     # Autogenerate folder name
-    if { [empty_string_p $folder] } {
+    if { $folder eq "" } {
         set existing_urls [site_node::get_children -node_id $node_id -element name]
 
         set folder [util_text_to_url \