Index: openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	12 Mar 2005 21:38:35 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	10 Jan 2007 21:22:08 -0000	1.9
@@ -32,11 +32,11 @@
             -element url]
 
     # node_id was null so we're not deleting a mounted subsite instance
-    if {[empty_string_p $parent] } {
+    if {$parent eq "" } {
 	set parent [ad_conn subsite_url]
     }
 
-    if { ![empty_string_p $node_id] } {
+    if { $node_id ne "" } {
         # The package is mounted
         site_node::unmount -node_id $node_id
         site_node::delete -node_id $node_id