Index: tests/destroy.test
===================================================================
diff -u -r45e24b34c85bf0fc3e14db5250550100bd07ff31 -r74211c75224617bc0d78cd2a6a2a89d1e4a834d1
--- tests/destroy.test	(.../destroy.test)	(revision 45e24b34c85bf0fc3e14db5250550100bd07ff31)
+++ tests/destroy.test	(.../destroy.test)	(revision 74211c75224617bc0d78cd2a6a2a89d1e4a834d1)
@@ -837,6 +837,9 @@
     package req nx
     nx::Object create o {
       set :x 100
+      # The following line is tricky: the trailing ";#" 
+      # is used to trim the undesirable extra arguments 
+      # from the trace command.
       ::trace add variable :x unset "[list set ::X ${:x}];#"
     }
   }
@@ -865,6 +868,9 @@
 	next
       } 
       set :x 100
+      # The following line is tricky: the trailing ";#" 
+      # is used to trim the undesirable extra arguments 
+      # from the trace command.
       ::trace add variable :x unset "[list ::incr ::X]; [list [self] destroy];#"
     }
   }
@@ -888,6 +894,9 @@
     package req nx
     nx::Object create o {
       set :x _
+      # The following line is tricky: the trailing ";#" 
+      # is used to trim the undesirable extra arguments 
+      # from the trace command.
       ::trace add variable :x unset "[list catch [list ::nx::Object destroy] msg1]; [list catch [list ::nx::Class destroy] msg2]; set ::MSG \[list \$msg1 \$msg2\];#"
     }
   }
@@ -911,6 +920,9 @@
     package req nx
     nx::Object create o {
       set :x 100
+      # The following line is tricky: the trailing ";#" 
+      # is used to trim the undesirable extra arguments 
+      # from the trace command.
       ::trace add variable :x unset "[list ::nsf::var::set [self] x ${:x}];#"
     }
   }