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.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	3 Oct 2003 11:06:15 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/site-map/application-new.tcl	4 Jun 2006 00:45:45 -0000	1.4
@@ -53,7 +53,7 @@
 
     # Autogenerate folder name
     if { [empty_string_p $folder] } {
-        set existing_urls [site_node::get_children -node_id $parent_node_id -element name]
+        set existing_urls [site_node::get_children -node_id $node_id -element name]
 
         set folder [util_text_to_url \
                       -existing_urls $existing_urls \