Index: library/nx/nx.tcl
===================================================================
diff -u -r285f60aaeae84fa3978f1d67a27341b42edab1ae -r3dcb0fb1b41f33a5b163ae81b96e6a20e75c9d81
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 285f60aaeae84fa3978f1d67a27341b42edab1ae)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 3dcb0fb1b41f33a5b163ae81b96e6a20e75c9d81)
@@ -2500,7 +2500,7 @@
     }
     set traceSpec [expr {[info exists trace] ? [list -trace $trace] : ""}]
 
-    set r [[self] object variable \
+    set r [:object variable \
                -accessor $accessor \
                -incremental=$incremental \
                -class $class \