Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/categories/tcl/categories-procs.tcl	13 Jan 2010 17:07:00 -0000	1.28
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	27 Jun 2015 19:24:24 -0000	1.29
@@ -504,7 +504,7 @@
     if {$object_id ne ""} {
 	set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base object-map {locale object_id ctx_id}] [_ categories.cadmin]]]
     } else {
-	set context_bar [list [list ".?[export_vars -no_empty {locale ctx_id}]" [_ categories.cadmin]]]
+	set context_bar [list [list [export_vars -base . -no_empty {locale ctx_id}] [_ categories.cadmin]]]
     }
     lappend context_bar [list [export_vars -no_empty -base tree-view {tree_id locale object_id ctx_id}] [category_tree::get_name $tree_id $locale]]