Index: tests/object-system.xotcl
===================================================================
diff -u -r86ca64f825603cf3aea4917375c73776187bc903 -r4eafc074cdca60b0089c2a950954c83d519b91d3
--- tests/object-system.xotcl	(.../object-system.xotcl)	(revision 86ca64f825603cf3aea4917375c73776187bc903)
+++ tests/object-system.xotcl	(.../object-system.xotcl)	(revision 4eafc074cdca60b0089c2a950954c83d519b91d3)
@@ -60,4 +60,17 @@
 ? {c1 ismetaclass} 0
 ? {c1 info class} ::C
 
+
+# basic parameter tests
+
+Class C -parameter {{x 1} {y 2}}
+C copy X
+
+? {C::slot info vars} __parameter
+? {C info parameter} {{x 1} {y 2}}
+
+? {X::slot info vars} __parameter
+? {X info parameter} {{x 1} {y 2}}
+
+
 #puts stderr ===EXIT