Index: generic/predefined.h
===================================================================
diff -u -r821c01bd241c51be4fa0931d423d8f8658606ee1 -r9246ffdfb2716a6abbf3709990abb9c4453eb461
--- generic/predefined.h	(.../predefined.h)	(revision 821c01bd241c51be4fa0931d423d8f8658606ee1)
+++ generic/predefined.h	(.../predefined.h)	(revision 9246ffdfb2716a6abbf3709990abb9c4453eb461)
@@ -15,6 +15,13 @@
 "eval [linsert $cmd 1 $object]} else {\n"
 "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"
+"::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"
 "if {[string match ::nsf::procs::* $name]} {\n"
 "return [string range $name 12 end]} elseif {[string match nsf::procs::* $name]} {\n"