Index: tests/tcl86.tcl
===================================================================
diff -u -r1a79d773d2d60c43bacefd3e6e87ba1ba38f46d5 -r35dda6764f7fde6a68c1076deaaaec9e40ad899e
--- tests/tcl86.tcl	(.../tcl86.tcl)	(revision 1a79d773d2d60c43bacefd3e6e87ba1ba38f46d5)
+++ tests/tcl86.tcl	(.../tcl86.tcl)	(revision 35dda6764f7fde6a68c1076deaaaec9e40ad899e)
@@ -60,6 +60,7 @@
       return $result
     }
 
+    :method foo {x} {return $x-$x}
   }
 
   # Two examples from the apply man page
@@ -75,5 +76,9 @@
   # Test case accessing object specific variable
   ? {o map {x {expr {$x * ${:delta}}}} {-4 -3 -2 -1 0 1 2 3 4}} \
       "-400 -300 -200 -100 0 100 200 300 400"
+
+  # Test case calling own method via apply
+  ? {o map {x {:foo $x}} {hello world}} \
+      "hello-hello world-world"
 }