Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r7d7f47ce5d7b7c2d252af5d4499b50996f6475ff -rc5d841d4cd001b85e95e01202b4fc0afe75df6a8
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 7d7f47ce5d7b7c2d252af5d4499b50996f6475ff)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision c5d841d4cd001b85e95e01202b4fc0afe75df6a8)
@@ -165,18 +165,18 @@
 
 Object o1
 o1 set i 0
-::nsf::alias o1 Incr -objscope ::incr
+::nsf::alias o1 Incr -frame object ::incr
 ? {o1 incr i} 1 "method incr"
 ? {o1 Incr i} 1002 "aliased tcl incr"
 ? {o1 incr i} 2003 "method incr"
 ? {o1 Incr i} 3004 "aliased tcl incr"
 
-::nsf::alias ::xotcl::Object Set -objscope ::set
+::nsf::alias ::xotcl::Object Set -frame object ::set
 ? {o1 set i 1} 1 "method set"
 ? {o1 set i} 1 "method set"
 ? {o1 Set i 1} 1 "aliased tcl set"
 ? {o1 Set i} 1 "aliased tcl set"
-::nsf::alias o1 Set -objscope ::set
+::nsf::alias o1 Set -frame object ::set
 ? {o1 Set i 1} 1 "aliased object tcl set"
 ? {o1 Set i} 1 "aliased object tcl set"
 ::xotcl::Object instforward SSet -earlybinding -objscope ::set
@@ -575,7 +575,7 @@
 ? {o1 myfdset y} "get instvar value via forward -earlybinding"
 ? {o1 myfdset y 123} "set instvar value via forward -earlybinding"
 
-::nsf::alias o1 myset -objscope ::set
+::nsf::alias o1 myset -frame object ::set
 o1 myset x 101
 ? {o1 myset x} 101