Index: library/xotcl/tests/speedtest.xotcl
===================================================================
diff -u -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92 -r76fadfb3f603f8f96a6064f4bb5342133923ec53
--- library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
+++ library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision 76fadfb3f603f8f96a6064f4bb5342133923ec53)
@@ -1,3 +1,4 @@
+# -*- Tcl -*-
 #memory trace on
 package require XOTcl; namespace import ::xotcl::*
 
@@ -448,19 +449,19 @@
     -pre {C c2; C c2::o; c2::o proc f a {incr a}} \
     -cmd {c2::o f 10} -expected 11 -count 5000 \
     -post {c2 destroy}
-Test new -msg {call proc of object and subobject via dispatch} \
-    -pre {C c2; C c2::o; c2::o proc f a {incr a}} \
-    -cmd {c2 o f 10} -expected 11 -count 5000 \
-    -post {c2 destroy}
+#Test new -msg {call proc of object and subobject via dispatch} \
+#    -pre {C c2; C c2::o; c2::o proc f a {incr a}} \
+#    -cmd {c2 o f 10} -expected 11 -count 5000 \
+#    -post {c2 destroy}
 
 Test new -msg {dispatch subobject directy via [self]} \
     -pre {C c2; C c2::o; c2::o proc f a {incr a}; c2 proc t a {[self]::o f $a}} \
     -cmd {c2 t 12} -expected 13 -count 5000 \
     -post {c2 destroy}
-Test new -msg {dispatch subobject via my} \
-    -pre {C c2; C c2::o; c2::o proc f a {incr a}; c2 proc t a {my o f $a}} \
-    -cmd {c2 t 12} -expected 13 -count 5000 \
-    -post {c2 destroy}
+#Test new -msg {dispatch subobject via my} \
+#    -pre {C c2; C c2::o; c2::o proc f a {incr a}; c2 proc t a {my o f $a}} \
+#    -cmd {c2 t 12} -expected 13 -count 5000 \
+#    -post {c2 destroy}
 
 
 ###### insttclcmd tests