Index: generic/predefined.xotcl =================================================================== diff -u -rb799293caa03567d1ff1be2ebd991ebf26c449f8 -r99bd33b963fde1d8c93383fab145234724f2f063 --- generic/predefined.xotcl (.../predefined.xotcl) (revision b799293caa03567d1ff1be2ebd991ebf26c449f8) +++ generic/predefined.xotcl (.../predefined.xotcl) (revision 99bd33b963fde1d8c93383fab145234724f2f063) @@ -869,9 +869,7 @@ ::xotcl::Object instproc method {name arguments body} { my proc name $arguments $body } -::xotcl::Class instproc method { - -per-object:switch name arguments body} { - +::xotcl::Class instproc method {-per-object:switch name arguments body} { if {${per-object}} { my proc $name $arguments $body } else {