Index: tests/contains.test
===================================================================
diff -u -r1d2bdbea2141f159f982e8dde0f9b0a6778a8b71 -r2125f114120d953c748412a31064d50cad37abfa
--- tests/contains.test	(.../contains.test)	(revision 1d2bdbea2141f159f982e8dde0f9b0a6778a8b71)
+++ tests/contains.test	(.../contains.test)	(revision 2125f114120d953c748412a31064d50cad37abfa)
@@ -2,6 +2,7 @@
 package prefer latest
 package require nx
 
+set ::tcl86 [package vsatisfies [package req Tcl] 8.6]
 
 #
 # Intentionally, we do not want to make a "namespace import" in this
@@ -181,10 +182,18 @@
 set ::errorinfo $::errorInfo
 set ::errorcode $::errorCode
 ? {set ::errorMsg} {somethingwrong}
-? {set ::errorinfo} {somethingwrong
+
+if {$::tcl86} {
+  set r {somethingwrong
+    while executing
+"o contains { return -code error -errorcode {FOO bar baz} somethingwrong}"} 
+} else {
+  set r {somethingwrong
     ::o ::nx::Object->contains
     invoked from within
 "o contains { return -code error -errorcode {FOO bar baz} somethingwrong}"}
+}
+? {set ::errorinfo} $r
 ? {set ::errorcode} {FOO bar baz}
 
 puts stderr "====EXIT [info script]"