Index: openacs-4/packages/assessment/www/admin/asm-action-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/assessment/www/admin/asm-action-new.tcl	6 May 2005 17:05:16 -0000	1.6
+++ openacs-4/packages/assessment/www/admin/asm-action-new.tcl	6 May 2005 17:14:17 -0000	1.7
@@ -24,7 +24,7 @@
 }
 
 set page_title "[_ assessment.add_new_action]"
-set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-admin ] [_ assessment.action_admin]] $page_title]
+set context [list [list [export_vars -base asm-action-admin ] [_ assessment.action_admin]] $page_title]
 
 ad_form -name action_admin -form {
     action_id:key
Index: openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl	6 May 2005 17:05:16 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/asm-action-param-admin.tcl	6 May 2005 17:15:41 -0000	1.5
@@ -19,7 +19,7 @@
 }
 
 
-set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ]  $page_title]
+set context [list [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ]  $page_title]
 
 
 set type_options [list [list "[_ assessment.query]" q] [list "[_ assessment.var ]" n]]
Index: openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl	6 May 2005 17:05:16 -0000	1.4
+++ openacs-4/packages/assessment/www/admin/asm-action-param-delete.tcl	6 May 2005 17:17:11 -0000	1.5
@@ -12,7 +12,7 @@
 }
 
 set page_title [_ assessment.delete_parameter]
-set context [list [list index [_ assessment.admin]] [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ]  $page_title]
+set context [list [list [export_vars -base asm-action-new {action_id} ] [_ assessment.action_admin] ]  $page_title]
 db_1row select_param_info {select type,varname,description,query 
 	from as_action_params 
     where parameter_id = :parameter_id}