Index: generic/predefined.h
===================================================================
diff -u -rdd7a26337aa9aec3e0a06d2137ee7e708a8e1a9a -r821c01bd241c51be4fa0931d423d8f8658606ee1
--- generic/predefined.h	(.../predefined.h)	(revision dd7a26337aa9aec3e0a06d2137ee7e708a8e1a9a)
+++ generic/predefined.h	(.../predefined.h)	(revision 821c01bd241c51be4fa0931d423d8f8658606ee1)
@@ -15,6 +15,11 @@
 "eval [linsert $cmd 1 $object]} else {\n"
 "eval [linsert $(definition) 1 $object]}} else {\n"
 "error \"cannot require method $name for $object, method unknown\"}}\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"
+"return [string range $name 12 end]} else {\n"
+"return $name}}\n"
 "::nsf::proc ::nsf::mixin {object -per-object:switch classes} {\n"
 "set rel [expr {${per-object} ? \"object-mixin\" : \"class-mixin\"}]\n"
 "if {[lindex $classes 0] ne \"\"} {\n"