Index: tests/object-system.xotcl
===================================================================
diff -u -r217d826e64107056ae97176552cae3c776991b9e -r2880a345930ceabfec83d491f26b8254099c8991
--- tests/object-system.xotcl	(.../object-system.xotcl)	(revision 217d826e64107056ae97176552cae3c776991b9e)
+++ tests/object-system.xotcl	(.../object-system.xotcl)	(revision 2880a345930ceabfec83d491f26b8254099c8991)
@@ -10,7 +10,7 @@
    if {$msg eq ""} {set msg $cmd}
    if {$r ne $expected} {
      puts stderr "ERROR $msg returned '$r' ne '$expected'"
-     exit
+     error "FAILED $msg returned '$r' ne '$expected'"
    } else {
      puts stderr "OK $msg"
    }
@@ -81,15 +81,29 @@
 # basic parameter tests
 
 Class C -parameter {{x 1} {y 2}}
+? {::xotcl::objectproperty C object} 1
+? {::xotcl::objectproperty C::slot object} 1
+? {C info children} ::C::slot
+
+puts stderr ====COPY
 C copy X
+puts stderr ====0a
+? {::xotcl::objectproperty X object} 1
+? {X info vars} ""
+? {C info vars} ""
+puts stderr ====0b
+? {::xotcl::objectproperty X::slot object} 1
+puts stderr ====0c
 
 ? {C::slot info vars} __parameter
 ? {C info parameter} {{x 1} {y 2}}
 
+puts stderr ====1
 ? {X::slot info vars} __parameter
+puts stderr ====2
 ? {X info parameter} {{x 1} {y 2}}
+puts stderr ====3
 
-
 #
 # tests for the dispatch command