Index: generic/predefined.h
===================================================================
diff -u -r6b3921be54ad92034e563a09300ab2e4f49645aa -re5b7b9261b0de87bf7a45ff7416ecd967037fa0b
--- generic/predefined.h	(.../predefined.h)	(revision 6b3921be54ad92034e563a09300ab2e4f49645aa)
+++ generic/predefined.h	(.../predefined.h)	(revision e5b7b9261b0de87bf7a45ff7416ecd967037fa0b)
@@ -128,7 +128,7 @@
 ".method $methname $arglist $body}}\n"
 "proc ::xotcl::unsetExitHandler {} {\n"
 "proc ::xotcl::__exitHandler {} {}}\n"
-"proc ::xotcl::setExitHandler {newbody} {proc ::xotcl::__exitHandler {} $newbody}\n"
+"proc ::xotcl::setExitHandler {newbody} {::proc ::xotcl::__exitHandler {} $newbody}\n"
 "proc ::xotcl::getExitHandler {} {::info body ::xotcl::__exitHandler}\n"
 "::xotcl::unsetExitHandler\n"
 "namespace export Object Class}\n"
@@ -192,7 +192,7 @@
 "if {[info exists default]} {\n"
 "::xotcl::setinstvar ${class}::slot::$att default $default\n"
 "unset default}\n"
-"$class setter $att}\n"
+"::xotcl::setter $class $att}\n"
 "foreach att $definitions {\n"
 "if {[llength $att]>1} {foreach {att default} $att break}\n"
 "if {[info exists default]} {\n"