Index: openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl	1 Mar 2005 00:01:27 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl	6 Nov 2008 15:50:44 -0000	1.7
@@ -8,6 +8,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 }
 
 set user_id [auth::require_login]
@@ -23,7 +24,7 @@
 category_tree::delete $tree_id
 
 if {![info exists object_id]} {
-    ad_returnredirect ".?[export_vars -no_empty {locale}]"
+    ad_returnredirect ".?[export_vars -no_empty {locale ctx_id}]"
 } else {
-    ad_returnredirect [export_vars -no_empty -base object-map {locale object_id}]
+    ad_returnredirect [export_vars -no_empty -base object-map {locale object_id ctx_id}]
 }