Index: library/xotcl/tests/testx.xotcl
===================================================================
diff -u -r16d627336b40d4eafd46400984337bf3e514605e -r1915597e6ad2a44c3f33b80e7f530920db2a6001
--- library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 16d627336b40d4eafd46400984337bf3e514605e)
+++ library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 1915597e6ad2a44c3f33b80e7f530920db2a6001)
@@ -1113,7 +1113,7 @@
 	set ::baseLevel [info level]
 
 
-	if {0 != [expr {[info level] - $::baseLevel}]} {
+	if {0 != [info level] - $::baseLevel} {
 		puts stderr "FAILED - [self] -- Simple Observer - info level in filtered proc\n\
                  expected 0, got [expr {[info level] - $::baseLevel}]"
 		exit