Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -rcc94b154709f9bd3393fbbdb9af982a30b57dee0 -r2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision cc94b154709f9bd3393fbbdb9af982a30b57dee0)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879)
@@ -349,10 +349,23 @@
 a1 foo 123 ;# calls overridden foosetter
 ? {a1 foo} 123
 
-
 #puts [A serialize]
 
 ###################
+Test case req-param {
+  ::xotcl::Class create C -parameter {y:required x:required}
+  C instproc init args {set ::_ $args}
+
+  set ::_ ""
+  ? {C create c2 -y 1 -x} {Argument for parameter '-x' expected}
+  ? {set ::_} ""
+  ? {c2 x} {can't read "x": no such variable}
+  ? {C create c3 -y 1 -x 0} "::c3"
+  ? {set ::_} ""
+  ? {c3 x} "0"
+}
+
+###################
 # Application Slots
 #