Index: tests/testx.xotcl
===================================================================
diff -u -rae922ee26ff2c658d5d0c3b8b98b71ab2f8bb4f9 -r2198228db95e35c248720652c69f53a21eb718e6
--- tests/testx.xotcl	(.../testx.xotcl)	(revision ae922ee26ff2c658d5d0c3b8b98b71ab2f8bb4f9)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 2198228db95e35c248720652c69f53a21eb718e6)
@@ -604,11 +604,9 @@
         append filterResult "-[self]-[self proc]-[self class]-[self calledproc]"
 	next
       }
-
       B instfilter {{f1 -guard "1<0"}}
       B b
       ::errorCheck $filterResult "" "Filter guard: Filter never to be applied"
-
       b destroy
 
       A instproc f1 args {
@@ -618,11 +616,13 @@
       }
       set filterResult ""
       B b
+
       ::errorCheck $filterResult "" \
 	    "Filter guard: Filter never to be applied + filter inheritance on this filter"
       # filter w/o guard -> has to be applied
       A instfilter f1
       b destroy
+
       set filterResult ""
       B b
       # TODO: with tcl85stack, we get here 
@@ -634,6 +634,7 @@
       # two filter w/o guard -> both have to be applied
       B instfilter f1
       b destroy
+
       set filterResult ""
       B b
       ::errorCheck $filterResult "-::b-f1-::B-configure-::b-f1-::A-configure-::b-f1-::B-setvalues-::b-f1-::A-setvalues-::b-f1-::B-init-::b-f1-::A-init" \
@@ -646,13 +647,12 @@
       set filterResult ""
       B b
       ::errorCheck $filterResult "" "Filter guard: three filters in one chain"
-      
+
       # three times the same filter --> guards are and-combined
       set filterResult ""
       B instfilter {{f2 -guard {[self calledproc] eq "set" || [self] == "::b2"}}}
       A instfilter {{f2 -guard {[self] == "::b2"}}}
       B b1 
-
       B b2
       if {$i == 0} {
 	::errorCheck $filterResult "-::b2-f2-::A-configure-::b2-f2-::A-setvalues-::b2-f2-::A-init" \