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
         }
     }
 }