Index: generic/nsf.tcl
===================================================================
diff -u -r39306d4d36096f20dba3262638e2a87f04e90111 -r9246ffdfb2716a6abbf3709990abb9c4453eb461
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 39306d4d36096f20dba3262638e2a87f04e90111)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision 9246ffdfb2716a6abbf3709990abb9c4453eb461)
@@ -37,6 +37,26 @@
     }
   }
 
+  #
+  # 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 ""} {
+      ::nsf::method $object {*}[expr {${per-object} ? "-per-object" : ""}] $methodName "" ""
+    } else {
+      error "Object $object: method $methodName is not defined"
+    }
+  }
+
+  #
+  # The following helper proc is used e.g. in OpenACS to pair
+  # introspection with nsf::procs.
+  #
   ::proc strip_proc_name {name} {
     if {[string match ::nsf::procs::* $name]} {
       return [string range $name 12 end]