Index: openacs-4/packages/categories/www/cadmin/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-form.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/tree-form.tcl	14 Dec 2003 15:36:58 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/tree-form.tcl	1 Feb 2004 19:12:52 -0000	1.4
@@ -1,7 +1,7 @@
 ad_page_contract {
     Form to add/edit a category tree.
 
-    @author Timo Hentschel (thentschel@sussdorff-roy.com)
+    @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
     tree_id:integer,optional
@@ -21,9 +21,8 @@
 }
 
 if { [info exists object_id] } {
-    set context_bar [list [category::get_object_context $object_id] [list "one-object?[export_url_vars locale object_id]" "Category Management"]]
+    set context_bar [list [category::get_object_context $object_id] [list [export_vars -base one-object {locale object_id}] "Category Management"]]
 } else {
-    set context_bar [list [list ".?[export_url_vars locale]" "Category Management"]]
+    set context_bar [list [list ".?[export_vars {locale}]" "Category Management"]]
 }
 lappend context_bar $page_title
-