Index: openacs-4/packages/categories/tcl/category-trees-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/category-trees-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/categories/tcl/category-trees-procs.tcl	8 Nov 2008 17:05:38 -0000	1.24
+++ openacs-4/packages/categories/tcl/category-trees-procs.tcl	21 Dec 2008 18:05:35 -0000	1.25
@@ -154,7 +154,7 @@
         db_transaction {
             set tree_id [db_exec_plsql insert_tree ""]
 
-            set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+            set default_locale [parameter::get -parameter DefaultLocale -default en_US]
             if {$locale != $default_locale} {
                 db_exec_plsql insert_default_tree ""
             }
@@ -469,7 +469,7 @@
             # exact match: found name for this locale
             return $names
         }
-        if {![catch {set names $tree_lang([ad_parameter DefaultLocale acs-lang "en_US"])}]} {
+        if {![catch {set names $tree_lang([parameter::get -parameter DefaultLocale -default en_US])}]} {
             # default locale found
             return $names
         }