Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v diff -u -r1.28.2.1 -r1.28.2.2 --- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 14 Mar 2019 14:26:59 -0000 1.28.2.1 +++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 25 Mar 2019 12:08:45 -0000 1.28.2.2 @@ -1128,8 +1128,9 @@ select message_key, package_key, locale, message from lang_messages }] { lassign $tuple message_key package_key locale message - aa_false "Message $message_key in package $package_key for locale $locale correct" \ - [catch {lang::message::check $locale $package_key $message_key $message}] + set error_p [catch {lang::message::check $locale $package_key $message_key $message} errmsg] + set errmsg [expr {$error_p ? ": $errmsg" : ""}] + aa_false "Message $message_key in package $package_key for locale $locale correct$errmsg" $error_p } } }