Index: library/lib/nx-test.tcl
===================================================================
diff -u -N -r1d2bdbea2141f159f982e8dde0f9b0a6778a8b71 -rbb203de8e54db00cdae54450912a3204fa4aadf2
--- library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision 1d2bdbea2141f159f982e8dde0f9b0a6778a8b71)
+++ library/lib/nx-test.tcl	(.../nx-test.tcl)	(revision bb203de8e54db00cdae54450912a3204fa4aadf2)
@@ -200,7 +200,11 @@
       array set map {1 ok -1 error}
       set errorcode $map($statuscode)
       :exitOff
-      return -code $errorcode -level [expr {[info level]-1}] "Test was exited with code $statuscode"
+
+      
+      set lvls [info level]
+      # for {set i 0} {$i<=$lvls} {incr i} {puts $i-->[info level $i]}
+      return -code $errorcode -level $lvls "Test was exited with code $statuscode"
     }
 
     :public method exitOn {} {