Index: dtrace/sample.tcl
===================================================================
diff -u -rf27953b113459a5f2592002b6b1307aa0eb7bd80 -r940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd
--- dtrace/sample.tcl	(.../sample.tcl)	(revision f27953b113459a5f2592002b6b1307aa0eb7bd80)
+++ dtrace/sample.tcl	(.../sample.tcl)	(revision 940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd)
@@ -1,5 +1,6 @@
 package require nx
 
+puts >>>>>>Y
 ::nsf::configure dtrace on
 
 nx::Object create o {
Index: generic/nsf.c
===================================================================
diff -u -r0948fdce861ff4566dbbad39927db6ace05f1970 -r940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd
--- generic/nsf.c	(.../nsf.c)	(revision 0948fdce861ff4566dbbad39927db6ace05f1970)
+++ generic/nsf.c	(.../nsf.c)	(revision 940aefdc3f5e0bd3dc748d9dba9776f9e48d31bd)
@@ -12003,13 +12003,13 @@
        */
       Namespace *oldNsPtr = procPtr->cmdPtr->nsPtr;
 
-      procPtr->cmdPtr->nsPtr = nsPtr;
+      // procPtr->cmdPtr->nsPtr = nsPtr;
 #endif
       result = TclProcCompileProc(interp, procPtr, bodyObj,
                                   (Namespace *) nsPtr, "body of proc",
                                   procName);
 #if defined(PRE86)
-      procPtr->cmdPtr->nsPtr = oldNsPtr;
+      // procPtr->cmdPtr->nsPtr = oldNsPtr;
 #endif
     }
     /*fprintf(stderr, "compiling '%s' with ns %s DONE\n", procName, nsPtr->name);*/
@@ -34611,6 +34611,7 @@
   rst->NsfClassesNS =
     Tcl_CreateNamespace(interp, "::nsf::classes", NULL,
                         (Tcl_NamespaceDeleteProc *)NULL);
+  ((Namespace *)rst->NsfClassesNS)->flags |= NS_SUPPRESS_COMPILATION;
   MEM_COUNT_ALLOC("TclNamespace", rst->NsfClassesNS);
 
   /*
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