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.26 -r1.27
--- openacs-4/packages/categories/tcl/categories-procs.tcl	8 Nov 2008 17:05:38 -0000	1.26
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	21 Dec 2008 18:05:35 -0000	1.27
@@ -52,7 +52,7 @@
     db_transaction {
         set category_id [db_exec_plsql insert_category ""]
         set translations [list $locale $name]
-        set default_locale [ad_parameter DefaultLocale acs-lang "en_US"]
+        set default_locale [parameter::get -parameter DefaultLocale -default en_US]
         if {$locale != $default_locale} {
             lappend translations $default_locale $name
             db_exec_plsql insert_default_category ""
@@ -328,7 +328,7 @@
     }
 
     # Resort to en_US
-    if { ![catch { set name $cat_lang([ad_parameter DefaultLocale acs-lang "en_US"]) }] } {
+    if { ![catch { set name $cat_lang([parameter::get -parameter DefaultLocale -default en_US]) }] } {
         return $name
     }