Index: library/xotcl/tests/testx.xotcl
===================================================================
diff -u -N -re7afc31b4bc7a2630878d6ffdb4279b3d2864dc6 -r992c44194bc02e57151a037ebda546c287af4d03
--- library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision e7afc31b4bc7a2630878d6ffdb4279b3d2864dc6)
+++ library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 992c44194bc02e57151a037ebda546c287af4d03)
@@ -674,9 +674,11 @@
       ::errorCheck [lrange $errorMsg 0 4] "Guard error: '1 2 3'" errormsg
 
       set ::filterResult ""
-      B instfilter {f01 {f02 -guard "a b"}}
+      B instfilter {f01 {f02 -guard "a b"}} ;# guard with error
 
-      if {[info commands ::b] ne ""} {catch {::b destroy}}
+      if {[info commands ::b] ne ""} {
+        catch {::b destroy}
+      }
       set r [catch {B b}]
       ::errorCheck $r-$::filterResult "1-11" "Filter guard: Filter guard with error via next"