Index: tests/object-system.test
===================================================================
diff -u -rdcee5f2f7bac79f3fb2b966d68360cdfcef8002a -rfb5c4302bf1778ad33d09c420f0b1da4df97b3e7
--- tests/object-system.test	(.../object-system.test)	(revision dcee5f2f7bac79f3fb2b966d68360cdfcef8002a)
+++ tests/object-system.test	(.../object-system.test)	(revision fb5c4302bf1778ad33d09c420f0b1da4df97b3e7)
@@ -117,12 +117,15 @@
 ? {::nsf::object::exists C::slot} 1
 ? {C info children} ::C::slot
 
-C copy X
+? {C copy X} ::X
 ? {::nsf::object::exists X} 1
 ? {X info vars} ""
 ? {C info vars} ""
 ? {::nsf::object::exists X::slot} 1
 
+? {set c1 [C new]} "::nsf::__#1"
+? {c1 copy c2} "::c2"
+
 #? {C::slot info vars} __parameter
 ? {C info attributes} {{x 1} {y 2}}