Index: tests/method-modifiers.test
===================================================================
diff -u -r0fbefbd8effdd2cca8f5ea34ff35aebfe536ff07 -rcacb1074477ab383bffc999a68e741ef11211de3
--- tests/method-modifiers.test	(.../method-modifiers.test)	(revision 0fbefbd8effdd2cca8f5ea34ff35aebfe536ff07)
+++ tests/method-modifiers.test	(.../method-modifiers.test)	(revision cacb1074477ab383bffc999a68e741ef11211de3)
@@ -177,6 +177,17 @@
 
 C destroy
 
+Test case colondispatch {
+  Object create ::o {
+    #:public method foo args {;}
+    :public method bar args {;}
+  }
+  ? {o :bar} "::o: methodname ':bar' must not start with a colon" 
+  ? {o eval :bar} "" 
+  ? {o :foo} "::o: methodname ':foo' must not start with a colon" 
+  ? {o eval :foo} "::o: unable to dispatch method 'foo'" 
+}
+
 Test case mixinguards {
   # define a Class C and mixin class M
   Class create C