Index: library/nx/nx.tcl
===================================================================
diff -u -r551a41a1d6502070f966b5f0be2559cf3fe12804 -r1af8aba52df547aa435235e6ad307d7b97655de9
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 551a41a1d6502070f966b5f0be2559cf3fe12804)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 1af8aba52df547aa435235e6ad307d7b97655de9)
@@ -487,14 +487,16 @@
     #    in nsf when calling e.g. "unknown" (such that a subcmd
     #    "unknown" does not interfere with the method "unknown").
     #
-    :protected method unknown {obj m args} {
-      set path [current methodpath]
-      #puts stderr "+++ UNKNOWN obj $obj '$m' $args // path '[current methodpath]'"
+    :protected method unknown {callInfo args} {
+      set path [lrange $callInfo 1 end-1]; # set path [current methodpath]
+      set m [lindex $callInfo end]
+      set obj [lindex $callInfo 0]
+      # puts stderr "+++ UNKNOWN ARGS=[current args] obj $obj '$m' callInfo=$callInfo args=$args // path '[current methodpath]'"
       if {[catch {set valid [$obj ::nsf::methods::object::info::lookupmethods -path "$path *"]} errorMsg]} {
 	set valid ""
 	puts stderr "+++ UNKNOWN raises error $errorMsg"
       }
-      set ref "\"[lindex $args 0]\" of $obj $path"
+      set ref "\"$m\" of $obj $path"
       error "Unable to dispatch sub-method $ref; valid are: [join [lsort $valid] {, }]"
     }