Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	26 Feb 2005 16:00:09 -0000	1.30
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	27 Feb 2005 22:45:39 -0000	1.31
@@ -53,12 +53,14 @@
 ad_proc -private lang::system::package_level_locale_not_cached {
     package_id
 } {
-    return [db_string get_system_locale {} -default {}]
+    return [db_string get_package_locale {} -default {}]
 }
 
 ad_proc -public lang::system::package_level_locale {
     package_id
 } {
+    @return empty string if not use_package_level_locales_p, or the package locale from apm_packages table.
+} {
     if { ![use_package_level_locales_p] } {
         return {}
     }