Index: test/wapptest.tcl
==================================================================
--- test/wapptest.tcl
+++ test/wapptest.tcl
@@ -286,11 +286,11 @@
   set dots [string repeat . [expr 60 - [string length $name]]]
   set msg "$name $dots $res ($t)"
 
   wapptest_output $msg
   if {[info exists G(test.$name.errmsg)] && $G(test.$name.errmsg)!=""} {
-    wapptest_output "    $G(test.$config.errmsg)"
+    wapptest_output "    $G(test.$name.errmsg)"
   }
 }
 
 # This is a fileevent callback invoked each time a file-descriptor that
 # connects this process to a slave process is readable.