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.1 -r1.2
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	7 Oct 2002 14:32:45 -0000	1.1
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	10 Oct 2002 14:29:56 -0000	1.2
@@ -284,11 +284,8 @@
     return [lang::message::register $locale $key $message]
 }
 
-
 ad_proc -public _ {
-    locale 
-    key 
-    {default "TRANSLATION MISSING"}
+    args
 } {
     Returns a translated string for the given language and message key.
     If the user is a translator, inserts tags to link to the translator
@@ -304,12 +301,13 @@
     
     @see lang::message::lookup
 } {
-    return [lang::message::lookup $locale $key $default]
+    switch [llength $args] {
+        1 { return [lang::message::lookup [ad_conn locale] [lindex $args 0] "TRANSLATION MISSING"] }
+        2 { return [lang::message::lookup [lindex $args 0] [lindex $args 1] "TRANSLATION MISSING"] }
+        3 { return [lang::message::lookup [lindex $args 0] [lindex $args 1] [lindex $args 2]] }
+    }
 }
-    
 
-
-
 #####
 #
 # Backwards compatibility procs