Index: library/nx/nx.tcl
===================================================================
diff -u -r6280104bd82ee1e4f3c6bd824d1cc6d0482f43c0 -r940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 6280104bd82ee1e4f3c6bd824d1cc6d0482f43c0)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd)
@@ -2524,8 +2524,13 @@
     if {$accessor eq ""} {
       set accessor [::nsf::dispatch [self] __default_accessor]
     }
-    set traceSpec [expr {[info exists trace] ? [list -trace $trace] : ""}]
-
+    puts ---[::nsf::__db_show_obj info],[namespace current],[namespace which info],
+    # set traceSpec [expr {[info exists trace] ? [list -trace $trace] : ""}]
+    set traceSpec ""
+    if {[info exists trace]} {
+      set traceSpec  [list -trace $trace]
+    }
+    puts >>>>
     set r [[self] ::nsf::classes::nx::Class::variable \
 	       -accessor $accessor \
 	       -incremental=$incremental \
@@ -2666,7 +2671,10 @@
 
   Class create ::nx::CopyHandler {
 
+    puts =====DISASSEMBLE
+    puts stderr [tcl::unsupported::disassemble proc ::nsf::classes::nx::Class::property]
     :property {targetList ""}
+    puts yyyyy
     :property {dest ""}
     :property objLength