Index: generic/predefined.h
===================================================================
diff -u -r9246ffdfb2716a6abbf3709990abb9c4453eb461 -rb252a0a0d40f1125c6ad5fa4269bfb500bfd034f
--- generic/predefined.h	(.../predefined.h)	(revision 9246ffdfb2716a6abbf3709990abb9c4453eb461)
+++ generic/predefined.h	(.../predefined.h)	(revision b252a0a0d40f1125c6ad5fa4269bfb500bfd034f)
@@ -16,10 +16,8 @@
 "eval [linsert $(definition) 1 $object]}} else {\n"
 "error \"cannot require method $name for $object, method unknown\"}}\n"
 "nsf::proc ::nsf::methoddelete {object:object -per-object:switch methodName} {\n"
-"if {${per-object}} {\n"
-"set handle [$object ::nsf::methods::object::info::method handle $methodName]} else {\n"
-"set handle [$object ::nsf::methods::class::info::method handle $methodName]}\n"
-"if {$handle ne \"\"} {\n"
+"set scope [expr {${per-object} ? \"object\" : \"class\"}]\n"
+"if {[$object ::nsf::methods::${scope}::info::method exists $methodName]} {\n"
 "::nsf::method $object {*}[expr {${per-object} ? \"-per-object\" : \"\"}] $methodName \"\" \"\"} else {\n"
 "error \"Object $object: method $methodName is not defined\"}}\n"
 "::proc strip_proc_name {name} {\n"