Index: openacs-4/packages/xowiki/tcl/category-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/category-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/xowiki/tcl/category-procs.tcl	15 Jul 2010 23:55:31 -0000	1.22
+++ openacs-4/packages/xowiki/tcl/category-procs.tcl	11 Mar 2011 17:49:48 -0000	1.23
@@ -62,7 +62,8 @@
     # provide a common interface to older versions of categories
     #
     # provide compatibility with earlier versions of categories
-    set have_locale [expr {[lsearch [info args category_tree::get_tree] locale] > -1}]
+    #set have_locale [expr {[lsearch [info args category_tree::get_tree] locale] > -1}]
+    set have_locale 1
     set all_arg [expr {$all ? "-all" : ""}]
     return [expr {$have_locale ?
                   [eval category_tree::get_tree $all_arg -subtree_id [list $subtree_id] $tree_id $locale] :