Index: generic/nsf.tcl
===================================================================
diff -u -r9246ffdfb2716a6abbf3709990abb9c4453eb461 -rb252a0a0d40f1125c6ad5fa4269bfb500bfd034f
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 9246ffdfb2716a6abbf3709990abb9c4453eb461)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision b252a0a0d40f1125c6ad5fa4269bfb500bfd034f)
@@ -41,12 +41,8 @@
   # proc for deleting methods
   #
   nsf::proc ::nsf::methoddelete {object:object -per-object:switch methodName} {
-    if {${per-object}} {
-      set handle [$object ::nsf::methods::object::info::method handle $methodName]
-    } else {
-      set handle [$object ::nsf::methods::class::info::method handle $methodName]
-    }
-    if {$handle ne ""} {
+    set scope [expr {${per-object} ? "object" : "class"}]
+    if {[$object ::nsf::methods::${scope}::info::method exists $methodName]} {
       ::nsf::method $object {*}[expr {${per-object} ? "-per-object" : ""}] $methodName "" ""
     } else {
       error "Object $object: method $methodName is not defined"