Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	19 Dec 2002 16:00:53 -0000	1.16
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	13 Jan 2003 22:51:44 -0000	1.17
@@ -426,13 +426,21 @@
     }     
 
 
-    ad_proc -private cache {} {
+    ad_proc -private cache {
+        {-package_key {}}
+    } {
         Loads the entire message catalog from the database into the cache.
     } {
         # We segregate messages by language. It might reduce contention
         # if we segregage instead by package. Check for problems with ns_info locks.
         global message_cache_loaded_p
         set message_cache_loaded_p 1
+
+        if { [empty_string_p $package_key] } {
+            set package_where_clause ""
+        } else {
+            set package_where_clause "where package_key = $package_key"
+        }
         
         set i 0 
         db_foreach select_locale_keys {} {
Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	19 Dec 2002 16:00:53 -0000	1.4
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.xql	13 Jan 2003 22:51:45 -0000	1.5
@@ -43,6 +43,7 @@
     <querytext>
       select locale, package_key, message_key, message 
       from   lang_messages
+      $package_where_clause
     </querytext>
   </fullquery>