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 -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	6 Mar 2004 00:18:18 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/site-map/instance-delete.tcl	12 Mar 2005 21:38:35 -0000	1.8
@@ -31,6 +31,11 @@
             -package_key acs-subsite \
             -element url]
 
+    # node_id was null so we're not deleting a mounted subsite instance
+    if {[empty_string_p $parent] } {
+	set parent [ad_conn subsite_url]
+    }
+
     if { ![empty_string_p $node_id] } {
         # The package is mounted
         site_node::unmount -node_id $node_id