Index: generic/predefined.h
===================================================================
diff -u -rb252a0a0d40f1125c6ad5fa4269bfb500bfd034f -re3a84e351aaf79c02a63cc0741dde7b9bd550849
--- generic/predefined.h	(.../predefined.h)	(revision b252a0a0d40f1125c6ad5fa4269bfb500bfd034f)
+++ generic/predefined.h	(.../predefined.h)	(revision e3a84e351aaf79c02a63cc0741dde7b9bd550849)
@@ -1,7 +1,9 @@
 static char cmd[] = 
 "namespace eval ::nsf {\n"
 "namespace export next current self\n"
-"namespace export alias configure finalize interp is my relation\n"
+"namespace eval ::nsf::method::create {\n"
+"namespace export alias}\n"
+"namespace export configure finalize interp is my relation\n"
 "proc ::nsf::provide_method {require_name definition {script \"\"}} {\n"
 "set ::nsf::methodIndex($require_name) [list definition $definition script $script]}\n"
 "proc ::nsf::require_method {object name {per_object 0}} {\n"
@@ -15,10 +17,10 @@
 "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"
+"nsf::proc ::nsf::method::delete {object:object -per-object:switch methodName} {\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"
+"::nsf::method::create $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"
@@ -31,8 +33,8 @@
 "set oldSetting [::nsf::relation $object $rel]\n"
 "uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $classes]]} else {\n"
 "uplevel [list ::nsf::relation $object $rel \"\"]}}\n"
-"::nsf::provide_method autoname {::nsf::alias autoname ::nsf::methods::object::autoname}\n"
-"::nsf::provide_method exists   {::nsf::alias  exists ::nsf::methods::object::exists}\n"
+"::nsf::provide_method autoname {::nsf::method::alias autoname ::nsf::methods::object::autoname}\n"
+"::nsf::provide_method exists   {::nsf::method::alias  exists ::nsf::methods::object::exists}\n"
 "proc ::nsf::exithandler {args} {\n"
 "lassign $args op value\n"
 "switch $op {\n"