Index: tests/disposition.test
===================================================================
diff -u -rd86805a2250aaa861470d4f4a13945d603585aca -r018ee9860385ff2c828bc42b08b121f1a7e53f2f
--- tests/disposition.test	(.../disposition.test)	(revision d86805a2250aaa861470d4f4a13945d603585aca)
+++ tests/disposition.test	(.../disposition.test)	(revision 018ee9860385ff2c828bc42b08b121f1a7e53f2f)
@@ -1294,14 +1294,14 @@
   # Dispatch with a method handle
   #
   ::T mixin set {}
-  ? [list [T create t] $methods(z) XXX] \
-      "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z"
-  T setObjectParams x:alias,method=$methods(z)
-  ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \
-      "Non-object FQ selector with default unknown handler"
-  ::T mixin set UnknownHandler
-  ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \
-      "Non-object FQ selector with custom unknown handler"
+  # ? [list [T create t] $methods(z) XXX] \
+  #     "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z"
+  # T setObjectParams x:alias,method=$methods(z)
+  # ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \
+  #     "Non-object FQ selector with default unknown handler"
+  # ::T mixin set UnknownHandler
+  # ? {T create t XXX} "CURRENT-::obj-DELEGATOR-::t-UNKNOWNMETHOD-XXX-PATH-::nsf::classes::T::z" \
+  #     "Non-object FQ selector with custom unknown handler"
 
   #
   # A Tcl proc is allowed?!