Index: library/nx/nx.tcl
===================================================================
diff -u -rc4db8ed59a42cf23cc9a7eac511e556d6b077f14 -r1d351e2644038c65f9b5568de5da3fcdf3f1ae3f
--- library/nx/nx.tcl	(.../nx.tcl)	(revision c4db8ed59a42cf23cc9a7eac511e556d6b077f14)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 1d351e2644038c65f9b5568de5da3fcdf3f1ae3f)
@@ -1293,12 +1293,12 @@
       # TODO: the following is not pretty; however, contains might
       # build xotcl and next objects.
       if {[::nsf::is class ::xotcl::Class]} {::xotcl::Class instmixin add $m end}
-      ::nsf::dispatch $object -frame method ::apply [list {} $cmds $object]
+      ::nsf::dispatch [self] -frame method ::apply [list {} $cmds $object]
       #namespace eval $object $cmds
       Class mixin delete $m
       if {[::nsf::is class ::xotcl::Class]} {::xotcl::Class instmixin delete $m}
     } else {
-      ::nsf::dispatch $object -frame method ::apply [list {} $cmds $object]
+      ::nsf::dispatch [self] -frame method ::apply [list {} $cmds $object]
       #namespace eval $object $cmds
     }
   }