Index: tests/object-system.test
===================================================================
diff -u -rfb5c4302bf1778ad33d09c420f0b1da4df97b3e7 -r562cc31a003aac134390dd343849f428994186f1
--- tests/object-system.test	(.../object-system.test)	(revision fb5c4302bf1778ad33d09c420f0b1da4df97b3e7)
+++ tests/object-system.test	(.../object-system.test)	(revision 562cc31a003aac134390dd343849f428994186f1)
@@ -126,6 +126,11 @@
 ? {set c1 [C new]} "::nsf::__#1"
 ? {c1 copy c2} "::c2"
 
+# copy without new name
+? {c2 copy} ::nsf::__#4
+? {set C [C copy]} ::nsf::__#6
+? {::nsf::object::exists ${C}::slot} 1
+
 #? {C::slot info vars} __parameter
 ? {C info attributes} {{x 1} {y 2}}