Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r0c03b745902c592c2ea8d637cc7f6b85fbf7c895 -r6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 0c03b745902c592c2ea8d637cc7f6b85fbf7c895)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 6c2e8f94be1ba335ff90d4b6b5132c98a9f5c242)
@@ -52,13 +52,14 @@
   #interp alias {} ::xotcl::Attribute {} ::nx::Attribute
   ::nx::Class create ::xotcl::Attribute -superclass ::nx::Attribute
 
-  proc ::xotcl::self {{arg "object"}} {
+  proc ::xotcl::self {{arg ""}} {
       switch $arg {
-	  next {
-	      set handle [uplevel ::nsf::current $arg]
-	      method_handle_to_xotcl $handle
-	  }
-	  default {uplevel ::nsf::current $arg}
+	"" {uplevel ::nsf::self}
+	next {
+	  set handle [uplevel ::nsf::current $arg]
+	  method_handle_to_xotcl $handle
+	}
+	default {uplevel ::nsf::current $arg}
       }
   }