Index: library/nx/nx.tcl
===================================================================
diff -u -rfe643dd6330cf3deb036335f20ce4113a2e2aee3 -rf3127511bec503add89e7a691f33213b1999274d
--- library/nx/nx.tcl	(.../nx.tcl)	(revision fe643dd6330cf3deb036335f20ce4113a2e2aee3)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f3127511bec503add89e7a691f33213b1999274d)
@@ -501,8 +501,8 @@
     }
     
     :protected method defaultmethod {} {
-      set obj [uplevel {self}]
-      set path [current methodpath]
+      set obj [uplevel {::nsf::current}]
+      set path [::nsf::current methodpath]
       set l [string length $path]
       set submethods [$obj ::nsf::methods::object::info::lookupmethods -path "$path *"]
       foreach sm $submethods {set results([lindex [string range $sm $l+1 end] 0]) 1}