Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30 -rc5d841d4cd001b85e95e01202b4fc0afe75df6a8
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision c5d841d4cd001b85e95e01202b4fc0afe75df6a8)
@@ -204,7 +204,7 @@
 
   # provide some Tcl-commands as methods for ::xotcl::Object
   foreach cmd {array append eval incr lappend set subst unset trace} {
-    ::nsf::alias Object $cmd -objscope ::$cmd
+    ::nsf::alias Object $cmd -frame object ::$cmd
   }
 
   # provide the standard command set for ::xotcl::Class
@@ -612,7 +612,7 @@
 
   ::nsf::alias Object contains ::nsf::classes::nx::Object::contains
   ::xotcl::Class instforward slots %self contains \
-      -object {%::nsf::dispatch [::xotcl::self] -objscope ::subst [::xotcl::self]::slot}
+      -object {%::nsf::dispatch [::xotcl::self] -frame method ::subst [::xotcl::self]::slot}
 
   # assertion handling
   proc checkoption_xotcl1_to_internal checkoptions {
@@ -667,7 +667,7 @@
         set kind parametercmd
       } elseif {$kind eq "alias"} {
 	set kind "cmd"
-	set name [lindex $definition end-1]
+	set name [lindex $definition 3]
       }
       set definition [list [lindex $definition 0] ${prefix}$kind $name]
     }