Index: library/lib/test.tcl
===================================================================
diff -u -re23d8c899d52279ea014728565097c244d365fba -raaced4467cdf9fd24e428c1a319b355fb038412d
--- library/lib/test.tcl	(.../test.tcl)	(revision e23d8c899d52279ea014728565097c244d365fba)
+++ library/lib/test.tcl	(.../test.tcl)	(revision aaced4467cdf9fd24e428c1a319b355fb038412d)
@@ -124,8 +124,8 @@
 	  puts stderr "[set :name]: ${:msg} ok"
 	}
       } else {
-	puts stderr "[set :name]:\tincorrect result for '${:msg}'"
-	puts stderr "expected:\n'${:expected}', got\n'$r'"
+	puts stderr "[set :name]:\tincorrect result for '${:msg}', expected:"
+	puts stderr "'${:expected}', got\n'$r'"
 	puts stderr "\tin test file [info script]"
 	if {[info exists :errorReport]} {eval [set :errorReport]}
 	exit -1