Index: openacs.org-dev/packages/acs-subsite/www/admin/groups/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-subsite/www/admin/groups/new.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-subsite/www/admin/groups/new.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-subsite/www/admin/groups/new.tcl	8 Oct 2002 15:46:48 -0000	1.1.1.2
@@ -18,7 +18,7 @@
     { return_url "" }
     {group_rel_type_list ""}
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     group_type_pretty_name:onevalue
     attributes:multirow
 } -validate {
@@ -31,7 +31,7 @@
     }
 }
 
-set context_bar [list [list "[ad_conn package_url]admin/groups/" "Groups"] "Add a group"]
+set context [list [list "[ad_conn package_url]admin/groups/" "Groups"] "Add a group"]
 
 if {[empty_string_p $add_to_group_id]} {
     set add_to_group_id [application_group::group_id_from_package_id]
@@ -150,7 +150,7 @@
 	set next_group_id [lindex $group_rel_type 0]
 	set next_rel_type [lindex $group_rel_type 1]
 	lappend return_url_list \
-		"${package_url}admin/relations/add.tcl?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$group_id&allow_out_of_scope_p=t"
+		"${package_url}admin/relations/add?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$group_id&allow_out_of_scope_p=t"
     }
 
     # Add the original return_url as the last one in the list