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"