Index: library/lib/nx-test.tcl
===================================================================
diff -u -ra27e2cf13f4ab3fa4df3519dfc49a7f53920153a -r89a8659e26a8b544c086117f988b01e3c42b41d3
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision a27e2cf13f4ab3fa4df3519dfc49a7f53920153a)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 89a8659e26a8b544c086117f988b01e3c42b41d3)
@@ -32,6 +32,7 @@
     :property post
 
     :object property {count:integer 1} 
+    :object property {verbose:boolean 0} 
     :object variable success 0
     :object variable failure 0
     :object variable testfile ""
@@ -97,7 +98,7 @@
       set :testfile $testfile
       if {![info exists :ccount(${:case})]} {set :ccount(${:case}) 0}
       set :name $testfile/${:case}.[format %.3d [incr :ccount(${:case})]]
-      :create ${:name} -name ${:name} -count ${:count} {*}$args
+      :create ${:name} -name ${:name} -count ${:count} -verbose ${:verbose} {*}$args
     }
 
     :public object method run {} {