Index: library/xotcl/tests/testx.xotcl
===================================================================
diff -u -N -rc493c042822de99268d18a994840c9bf32ee36a1 -r91e563cefe5477b877817b11c00c2e113bcb12b2
--- library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision c493c042822de99268d18a994840c9bf32ee36a1)
+++ library/xotcl/tests/testx.xotcl	(.../testx.xotcl)	(revision 91e563cefe5477b877817b11c00c2e113bcb12b2)
@@ -4403,7 +4403,20 @@
 }
 
 o test
+o destroy
 
+Object create o
+
+o proc f1 {} { return 1 }
+o proc f2 {} { return 2 }
+o filter {{f1 -guard {
+    [self calledproc] == "c"
+}}}
+
+errorCheck [o f2] 2 "call existing method after all guards failed"
+errorCheck [catch {o XXXXX} errorMsg] 1 "call non-existing method after all guards failed -> error"
+errorCheck $errorMsg "::o: unable to dispatch method 'XXXXX'" "call non-existing method after all guards failed -> errorMsg"
+
 puts "PASSED ::topLevelCommands"
 
 #