Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	4 Dec 2002 16:41:17 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	20 Dec 2002 13:58:16 -0000	1.5
@@ -15,8 +15,18 @@
     root_id:integer,optional
 }
 
-set context_id [ad_conn package_id]
+set context_id [db_string context_id {
+    select parent.object_id as context_id
+    from   site_nodes parent, site_nodes child
+    where  child.node_id = :node_id
+    and    parent.node_id = child.parent_id
+}]
 
+# If the parent node didn't have anything mounted, use the current package_id as context_id
+if { [empty_string_p $context_id] } {
+    set context_id [ad_conn package_id]
+}
+
 if { [empty_string_p $instance_name] } {
         set instance_name [db_string instance_default_name "select pretty_name from apm_package_types where package_key = :package_key"]
 }