Index: tests/objparametertest.xotcl
===================================================================
diff -u -rf11b03a9a764254c5a1ba45480ebf5eb19e2bf8d -r3300590b6a62f2bc22bada01ebf191753d88aa08
--- tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision f11b03a9a764254c5a1ba45480ebf5eb19e2bf8d)
+++ tests/objparametertest.xotcl	(.../objparametertest.xotcl)	(revision 3300590b6a62f2bc22bada01ebf191753d88aa08)
@@ -139,6 +139,10 @@
     {Invalid argument: cannot convert 'D11' to class} \
     "pass non-existing class"
 
+? {if {[catch {D instproc foo {a:relation} {}} errorMsg]} {set errorMsg}} \
+    {Parameter option 'relation' not allowed} \
+    "don't allow relation option as method parameter"
+
 #
 # subst default tests
 #