Index: openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	10 Feb 2002 22:11:31 -0000	1.2
@@ -97,7 +97,10 @@
 "
 
 if {[llength $expand] == 0} {
-  lappend expand [db_string node_id {select site_node.node_id('/') from dual}]
+    lappend expand $root_id 
+    if { ![empty_string_p $parent_id] } {
+        lappend expand $parent_id
+    }
 }
 
 # You might wonder why level is aliased as mylevel here.  Well, for some