From abaaf8ab0c3a00701b37af0af5e7d8da14bef310 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Thu, 16 May 2002 11:56:13 +0000
Subject: [PATCH] Avoid relying on too new features of the msgcat package.

---
 tests/ChangeLog | 5 +++++
 tests/lang-tcl  | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/tests/ChangeLog b/tests/ChangeLog
index 57320cb18..e2d6a995b 100644
--- 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 d061b455b..d0171ce5c 100755
--- 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"
-- 
2.47.2