Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	27 Jun 2015 16:03:13 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map.tcl	27 Jun 2015 16:47:27 -0000	1.10
@@ -184,10 +184,10 @@
     if { [lsearch -exact $open_nodes $parent_id] == -1 && $parent_id ne "" && $mylevel > 2 } { continue } 
         
     if {$directory_p == "t"} {
-	set add_folder_url "?[export_vars -url {expand:multiple root_id node_id {new_parent $node_id} {new_type folder}}]"
+	set add_folder_url "?[export_vars {expand:multiple root_id node_id {new_parent $node_id} {new_type folder}}]"
 	if {$object_id eq ""} {
 	    set mount_url [export_vars -base mount {expand:multiple root_id node_id}]
-	    set new_app_url "?[export_vars -url {expand:multiple root_id {new_application $node_id}}]"
+	    set new_app_url "?[export_vars {expand:multiple root_id {new_application $node_id}}]"
 	} else {
 	    # This makes sure you can't unmount the thing that is serving the page you're looking at.
 	    if {[ad_conn node_id] != $node_id} {
@@ -197,7 +197,7 @@
 	    # Add a link to control permissioning
 	    if {$object_admin_p} {
 		set permissions_url [export_vars -base ../../permissions/one {object_id}]
-		set rename_url "?[export_vars -url {expand:multiple root_id {rename_application $node_id}}]"
+		set rename_url "?[export_vars {expand:multiple root_id {rename_application $node_id}}]"
 		set delete_url "instance-delete?package_id=$object_id&root_id=$root_id"
 	    }
 	    # Is the object a package?