Index: tests/destroy.test
===================================================================
diff -u -rd8990c40c0ef4ea3f436f89f6a59e25425c6fe1f -rcc751d3067631542fabfb7205286e1a8757c60ca
--- tests/destroy.test	(.../destroy.test)	(revision d8990c40c0ef4ea3f436f89f6a59e25425c6fe1f)
+++ tests/destroy.test	(.../destroy.test)	(revision cc751d3067631542fabfb7205286e1a8757c60ca)
@@ -739,6 +739,20 @@
     ? {llength [o1 info children]} 1
     ? {llength [o1::o2 info children]} 21
   }
+
+  # similar to above, but this time partial deletes occur
+  set c 0
+  for {set i 0} {$i < 10} {incr i} {
+    set os [list]
+    for {set j 0} {$j < 20} {incr j} {lappend os ::o1::o2::[incr c]}
+    Object create ::o1
+    Object create ::o1::o2
+    foreach o $os {Object create $o}
+    C create ::o1::o2::ocX -os {}
+    C create ::o1::o2::ocY -os $os
+    ? {llength [o1 info children]} 1
+    ? {llength [o1::o2 info children]} 22
+  }
 }
 
 #puts stderr "==== EXIT ===="