Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r8e08d180ae5161c0ef4410ba3fda6b4de613a391 -rdcd56c07afd64a356db1a4672a35b4aaf4caf6ea
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 8e08d180ae5161c0ef4410ba3fda6b4de613a391)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision dcd56c07afd64a356db1a4672a35b4aaf4caf6ea)
@@ -71,7 +71,7 @@
   # provide the standard command set for ::xotcl::Object
   foreach cmd [info command ::nsf::cmd::Object::*] {
     set cmdName [namespace tail $cmd]
-    if {$cmdName in [list "setter"]} continue
+    if {$cmdName in [list "setter" "require_namespace"]} continue
     ::nsf::alias Object $cmdName $cmd
   }
 
@@ -234,6 +234,8 @@
   ::nsf::alias Object mixinguard       ::nsf::cmd::Object::mixinguard
   ::nsf::alias Class  instmixinguard   ::nsf::cmd::Class::mixinguard
 
+  ::nsf::alias Object requireNamespace ::nsf::cmd::Object::require_namespace
+
   # define instproc and proc
   ::nsf::method Class instproc {
     name arguments body precondition:optional postcondition:optional
@@ -714,7 +716,7 @@
   ::nsf::alias ::xotcl::Class -per-object __unknown ::nx::Class::__unknown
 
   proc myproc {args} {linsert $args 0 [::xotcl::self]}
-  proc myvar  {var}  {.requireNamespace; return [::xotcl::self]::$var}
+  proc myvar  {var}  {:requireNamespace; return [::xotcl::self]::$var}
 
   Object create ::xotcl::config
   config proc load {obj file} {