Index: generic/predefined.xotcl
===================================================================
diff -u -r6b3921be54ad92034e563a09300ab2e4f49645aa -re5b7b9261b0de87bf7a45ff7416ecd967037fa0b
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 6b3921be54ad92034e563a09300ab2e4f49645aa)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision e5b7b9261b0de87bf7a45ff7416ecd967037fa0b)
@@ -260,7 +260,7 @@
       # clients should append exit handlers to this proc body
     }
   }
-  proc ::xotcl::setExitHandler {newbody} {proc ::xotcl::__exitHandler {} $newbody}
+  proc ::xotcl::setExitHandler {newbody} {::proc ::xotcl::__exitHandler {} $newbody}
   proc ::xotcl::getExitHandler {} {::info body ::xotcl::__exitHandler}
   # initialize exit handler
   ::xotcl::unsetExitHandler
@@ -385,7 +385,7 @@
       ::xotcl::setinstvar ${class}::slot::$att default $default
       unset default
     }
-    $class setter $att
+    ::xotcl::setter $class $att
   }
 
   # do a second round to ensure that the already defined objects