Avoid relying on too new features of the msgcat package.

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 57320cb18bd79d503098806c42bc4c56d1b4bef1..e2d6a995ba5a515b061e765d9e9ec78fb062e935 100644 (file)
--- a/tests/ChangeLog
+++ b/tests/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-16  Bruno Haible  <bruno@clisp.org>
+
+       * lang-tcl: Explicitly invoke 'format', don't assume that ::msgcat::mc
+       does it when given more than one argument.
+
 2002-05-04  Bruno Haible  <bruno@clisp.org>
 
        * lang-c++: Use <iostream> instead of <iostream.h> to avoid g++ 3.1

diff --git a/tests/lang-tcl b/tests/lang-tcl
index d061b455bc52d6d0e0c167222c509ab5e241c81b..d0171ce5c0c831a7a5c44183887241978c1812b4 100755 (executable)
--- a/tests/lang-tcl
+++ b/tests/lang-tcl
@@ -14,7 +14,7 @@ package require msgcat
 ::msgcat::mcload [file join [file dirname [info script]] msgs]
 proc _ {s} {return [::msgcat::mc $s]}
 puts [_ "'Your command, please?', asked the waiter."]
-puts [::msgcat::mc "%s is replaced by %s." "FF" "EUR"]
+puts [format [::msgcat::mc "%s is replaced by %s."] "FF" "EUR"]
 EOF
 
 tmpfiles="$tmpfiles prog.pot"