Index: tests/testx.xotcl
===================================================================
diff -u -r802641dc2edee9e8ac569ad9c9cbadc949df8d47 -r2068ba7298e4ce370b36bdbda513172177f3ee52
--- tests/testx.xotcl	(.../testx.xotcl)	(revision 802641dc2edee9e8ac569ad9c9cbadc949df8d47)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision 2068ba7298e4ce370b36bdbda513172177f3ee52)
@@ -1171,10 +1171,9 @@
 	    my instvar a b cc
 	    return $r--${a}--[set cc]
 	}
-
 	set safedObjFilters [Object info filter]
 	Object instfilter "" 
-	C1 c1
+      	C1 c1
 	Object instfilter $safedObjFilters
 
       if {$i == 0} {
@@ -1189,7 +1188,7 @@
 
 	set FInfo ""
 	set result [c1 m1]
-	
+
 	::errorCheck $FInfo \
 	    "{callingclass {} filterreg {::C0 instfilter infoFilter} callingobject ::filterInfo callingproc run calledproc m1} {callingclass ::C0 filterreg {::C0 instfilter infoFilter} callingobject ::c1 callingproc m1 calledproc instvar} {self ::c1 proc infoFilter class ::C0 infoclass ::C1 r {}} {callingclass ::C1 filterreg {::C0 instfilter infoFilter} callingobject ::c1 callingproc m1 calledproc instvar} {self ::c1 proc infoFilter class ::C0 infoclass ::C1 r {}} {self ::c1 proc infoFilter class ::C0 infoclass ::C1 r 1--1--1}" \
 	    "Wrong filtering of c1 m1"
@@ -1199,8 +1198,8 @@
 	::errorCheck $result \
 	  "1--1--1" "Wrong return result of Filter Example 2 'c1 m1' "
 
-	
-	Class T0
+
+      Class T0
       FI addFilter T0
       T0 instproc m {} {
 	set e -0=showStack-1=showCall-2=m-3=m-4=m-5=run-6=run
@@ -1226,7 +1225,6 @@
 	set r2 [next]
 	set r after-[self]-[self proc]-[self class]-[my info class]-${r1}-$r2
       }
-      
       T1 t
       
       set FInfo ""