Index: openacs-4/etc/install/tcl/acs-lang-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/acs-lang-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/etc/install/tcl/acs-lang-procs.tcl	22 Oct 2003 13:16:00 -0000	1.3
+++ openacs-4/etc/install/tcl/acs-lang-procs.tcl	23 Oct 2003 12:35:01 -0000	1.4
@@ -13,18 +13,18 @@
     loads all message catalogs for those locales.
 } {
     if { [empty_string_p $locales] } {
-        set locales [::twt::oacs_eval {db_list all_locales {select locale from ad_locales}}]
+        set locales [::twt::oacs::eval {db_list all_locales {select locale from ad_locales}}]
     }
 
     # First enable all locales
-    ::twt::oacs_eval "
+    ::twt::oacs::eval "
         foreach locale {$locales} {
             lang::system::locale_set_enabled -locale \$locale -enabled_p t
         }
     "
 
     # Load all catalog files for enabled locales
-    ::twt::oacs_eval lang::catalog::import
+    ::twt::oacs::eval lang::catalog::import
 }
 
 ad_proc ::twt::acs_lang::set_locale { locale } {
@@ -44,6 +44,6 @@
     call to be converted into text.
 } {
     if { [regexp {#[a-zA-Z0-9_.-]+\.[a-zA-Z0-9_.-]+#} [response body] message_key] } {
-        ::twt::log_warning "Found \"$message_key\" on page [response url] and might be a message key that needs a lang::util::localize call"
+        ::twt::log_alert "Found \"$message_key\" on page [response url] and might be a message key that needs a lang::util::localize call"
     }
 }