Index: library/lib/nx-test.tcl
===================================================================
diff -u -r67c92d72f53bd368ff0fce6555ec803e859d7300 -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 67c92d72f53bd368ff0fce6555ec803e859d7300)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision e884c2b0d63fa1b5a691e866ccff8d4094a2a8e4)
@@ -23,7 +23,7 @@
     :property cmd 
     :property {namespace ::}
     :property {verbose 0} 
-    :property {expected 1} 
+    :property -accessor public {expected 1} 
     :property {count 1} 
     :property msg 
     :property setResult 
@@ -112,7 +112,7 @@
     }
     
     :public method call {msg cmd} {
-      if {[:verbose]} {puts stderr "$msg: $cmd"}
+      if {${:verbose}} {puts stderr "$msg: $cmd"}
       return [::namespace eval ${:namespace} $cmd]
     }
    
@@ -130,7 +130,7 @@
           if {[info exists :count]} {set c ${:count}} {set c 1000}
         }
 	#puts stderr "running test $c times"
-	if {[:verbose]} {puts stderr "running test $c times"}
+	if {${:verbose}} {puts stderr "running test $c times"}
 	if {$c > 1} {
 	  set r0 [time {time {::namespace eval ${:namespace} ";"} $c}]
 	  regexp {^(-?[0-9]+) +} $r0 _ mS0