Index: generic/predefined.h
===================================================================
diff -u -rbf9bae94d157de9bbd4c398f6a3a9a4d93626025 -ra59ed987404cf38f027209a4e140569c62721bd6
--- generic/predefined.h	(.../predefined.h)	(revision bf9bae94d157de9bbd4c398f6a3a9a4d93626025)
+++ generic/predefined.h	(.../predefined.h)	(revision a59ed987404cf38f027209a4e140569c62721bd6)
@@ -31,18 +31,22 @@
 "set prefix object} else {\n"
 "set cls Class\n"
 "set prefix class}\n"
-"::xotcl::dispatch [self] ::xotcl::cmd::${cls}::$prefix-method \\\n"
-"$name $arguments $body {*}$conditions\n"
-"if {$protected} {::xotcl::methodproperty [self] $name protected true}}\n"
+"set result [::xotcl::dispatch [self] ::xotcl::cmd::${cls}::$prefix-method \\\n"
+"$name $arguments $body {*}$conditions]\n"
+"puts stderr result=$result\n"
+"if {$protected} {::xotcl::methodproperty [self] $name protected true}\n"
+"return $result}\n"
 "::xotcl::dispatch Object ::xotcl::cmd::Class::class-method method {\n"
 "-public:switch -protected:switch\n"
 "name arguments body -precondition -postcondition} {\n"
 "set conditions [list]\n"
 "if {[info exists precondition]}  {lappend conditions -precondition  $precondition}\n"
 "if {[info exists postcondition]} {lappend conditions -postcondition $postcondition}\n"
-"::xotcl::dispatch [self] ::xotcl::cmd::Object::object-method \\\n"
-"$name $arguments $body {*}$conditions\n"
-"if {$protected} {::xotcl::methodproperty [self] $name -per-object protected true}}\n"
+"set result [::xotcl::dispatch [self] ::xotcl::cmd::Object::object-method \\\n"
+"$name $arguments $body {*}$conditions]\n"
+"puts stderr result=$result\n"
+"if {$protected} {::xotcl::methodproperty [self] $name -per-object protected true}\n"
+"return $result}\n"
 "Class method unknown {args} {\n"
 "puts stderr \"use '[self] create $args', not '[self] $args'\"\n"
 "eval my create $args}\n"