Index: library/nx/nx.tcl
===================================================================
diff -u -r67ef5da1e732c50c33f9a3e5769b68ddf18cdaa7 -r4c4859d357fca9a18892be062cf3de999465e47f
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 67ef5da1e732c50c33f9a3e5769b68ddf18cdaa7)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 4c4859d357fca9a18892be062cf3de999465e47f)
@@ -778,7 +778,7 @@
       set path $(name)
       while {1} {
 	set o [::nsf::dispatch $o ::nsf::cmd::ObjectInfo::parent]
-	if {![$o has type ::nx::EnsembleObject]} break
+	if {![::nsf::dispatch $o ::nsf::cmd::ObjectInfo::hastype ::nx::EnsembleObject]} break
 	array set "" [$o ::nsf::classes::nx::EnsembleObject::subcmdName]
 	set path "$(name) $path"
       }