Index: generic/predefined.h =================================================================== diff -u -r596677fb3ed1e15dc62a04789781347fb3dbc369 -r4536c2540977c43aaf422800dab048e5d9063b3f --- generic/predefined.h (.../predefined.h) (revision 596677fb3ed1e15dc62a04789781347fb3dbc369) +++ generic/predefined.h (.../predefined.h) (revision 4536c2540977c43aaf422800dab048e5d9063b3f) @@ -14,8 +14,8 @@ "eval $(script)}\n" "if {$per_object} {\n" "set cmd [linsert $(definition) 1 -per-object]\n" -"eval [linsert $cmd 1 $object]} else {\n" -"eval [linsert $(definition) 1 $object]}} else {\n" +"return [eval [linsert $cmd 1 $object]]} else {\n" +"return [eval [linsert $(definition) 1 $object]]}} else {\n" "error \"cannot require method $name for $object, method unknown\"}}\n" "nsf::proc ::nsf::method::delete {object:object -per-object:switch methodName} {\n" "set scope [expr {${per-object} ? \"object\" : \"class\"}]\n" @@ -34,7 +34,7 @@ "uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $classes]]} else {\n" "uplevel [list ::nsf::relation $object $rel \"\"]}}\n" "::nsf::method::provide autoname {::nsf::method::alias autoname ::nsf::methods::object::autoname}\n" -"::nsf::method::provide exists {::nsf::method::alias exists ::nsf::methods::object::exists}\n" +"::nsf::method::provide exists {::nsf::method::alias exists ::nsf::methods::object::exists}\n" "proc ::nsf::exithandler {args} {\n" "lassign $args op value\n" "switch $op {\n"