Index: library/nx/nx.tcl =================================================================== diff -u -rc1b0280fcc98b5ac8c94b36e274e1ae0906364d5 -rcd33e8cefca1d52063ebcb6689e46527bb94e33d --- library/nx/nx.tcl (.../nx.tcl) (revision c1b0280fcc98b5ac8c94b36e274e1ae0906364d5) +++ library/nx/nx.tcl (.../nx.tcl) (revision cd33e8cefca1d52063ebcb6689e46527bb94e33d) @@ -479,7 +479,7 @@ if {[catch {set obj [uplevel ::nsf::current]}]} { error "ensemble dispatch called outside of method context" } - set path [::nsf::current methodpath] + set path [lrange [::nsf::current methodpath] 0 end-1] 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}