Index: library/nx/nx.tcl
===================================================================
diff -u -rf7b560fcf16d625dfa38b9e9533f9014ba9a3ca7 -rf06e97d4188e0835fbe39b44b8cfc5b1d411bb9a
--- library/nx/nx.tcl	(.../nx.tcl)	(revision f7b560fcf16d625dfa38b9e9533f9014ba9a3ca7)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision f06e97d4188e0835fbe39b44b8cfc5b1d411bb9a)
@@ -1398,12 +1398,13 @@
 
       if {${:per-object}} {
 	::nsf::parameter::cache::objectinvalidate ${:domain}
-	if {[${:domain} ::nsf::methods::object::info::method exists ${:name}]} {
+	if {[::nsf::dispatch ${:domain} ::nsf::methods::object::info::method exists ${:name}]} {
 	  ::nsf::method::delete ${:domain} -per-object ${:name}
 	}
       } elseif {[::nsf::is class ${:domain}]} {
         ::nsf::parameter::cache::classinvalidate ${:domain}
-        if {[${:domain} ::nsf::methods::class::info::method exists ${:name}]} {
+        puts =(${:domain})==[::nsf::dispatch ${:domain} ::nsf::methods::class::info::method exists ${:name}]
+        if {[::nsf::dispatch ${:domain} ::nsf::methods::class::info::method exists ${:name}]} {
           ::nsf::method::delete ${:domain} ${:name}
         }
       } else {