Index: tests/testx.xotcl
===================================================================
diff -u -r2068ba7298e4ce370b36bdbda513172177f3ee52 -rebd253f47f14822a54b86b379622f6509cbbc4fe
--- tests/testx.xotcl	(.../testx.xotcl)	(revision 2068ba7298e4ce370b36bdbda513172177f3ee52)
+++ tests/testx.xotcl	(.../testx.xotcl)	(revision ebd253f47f14822a54b86b379622f6509cbbc4fe)
@@ -2978,8 +2978,10 @@
     Object o
     o proc x args {puts r}
     ::errorCheck [o info body x] "puts r" "Info Body"
-    ::errorCheck [info body o::x] "puts r" "Info Body"
 
+  if {$::tcl_version < "8.6"} {
+    ::errorCheck [info body o::x] "puts r" "Info Body"
+  }
     Object o
     o proc a {} {
       my lappend table(i) xxx