Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r5be0457f1c90aecfbbefb23a545b2d1bb424f42c -rbb3bac205696d90d3c8f4ca4ceffeb231f6f8f39
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 5be0457f1c90aecfbbefb23a545b2d1bb424f42c)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision bb3bac205696d90d3c8f4ca4ceffeb231f6f8f39)
@@ -907,8 +907,8 @@
   ::nsf::method::create ::xotcl::Class -per-object __unknown {name} {}
   ::nsf::object::unknown::add xotcl {::xotcl::Class __unknown}
 
-  proc myproc {args} {linsert $args 0 [::xotcl::self]}
-  proc myvar  {var}  {:requireNamespace; return [::xotcl::self]::$var}
+  proc myproc {args} {linsert $args 0 [uplevel ::nsf::self]}
+  proc myvar  {var}  {[uplevel ::nsf::self] requireNamespace; return [uplevel ::nsf::self]::$var}
 
   #
   # create ::xotcl::MetaSlot for better compatibility with XOTcl 1