Index: tests/object-system.test
===================================================================
diff -u -rc7686b76eff01e25abf042d5b4fa2dfa998b22f1 -rd8dcbc3ba475a4617d540b4499a9c41e8bf81b07
--- tests/object-system.test	(.../object-system.test)	(revision c7686b76eff01e25abf042d5b4fa2dfa998b22f1)
+++ tests/object-system.test	(.../object-system.test)	(revision d8dcbc3ba475a4617d540b4499a9c41e8bf81b07)
@@ -122,6 +122,7 @@
 o public method bar4 {} {return bar4-[[self] foo]}
 o public method bar5 {} {return [self]::bar5}
 o public method bar6 {} {return [:]::bar6}
+o public method bar7 {} {return bar7-[lsort [: -system info methods bar7]]}
 
 # dispatch without colon names
 ? {o foo} foo "simple method dispatch"
@@ -131,6 +132,7 @@
 ? {o bar4} bar4-foo "self dispatch"
 ? {o bar5} ::o::bar5 "self cmd"
 ? {o bar6} ::o::bar6 "colon cmd"
+? {o bar7} bar7-bar7 "colon cmd dispatch args"
 o destroy
 
 # basic attributes tests