Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	4 Jul 2002 09:27:10 -0000	1.6
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	6 Sep 2002 21:49:53 -0000	1.7
@@ -11,7 +11,7 @@
     {email_verified_p "no_change"}
     {return_url ""}
 } -properties {
-    context_bar:onevalue
+    context:onevalue
     export_vars:onevalue
     action:onevalue
     return_url:onevalue
@@ -103,7 +103,7 @@
     ad_script_abort
 }
 
-set context_bar [ad_admin_context_bar [list "index.tcl" "Users"] "$action"]
+set context [list [list "./" "Users"] "$action"]
 set export_vars [export_url_vars email email_from subject message return_url]
 
 ad_return_template