Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r1b583476882fea7df04664f551cf87d99c8a0da0 -rfc4e3f5f6a94ef7324baffab90d58cd7eb513907
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 1b583476882fea7df04664f551cf87d99c8a0da0)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision fc4e3f5f6a94ef7324baffab90d58cd7eb513907)
@@ -193,11 +193,13 @@
 ::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
 ? {o1 SSet i 1} 1 "forward earlybinding tcl set"
 ? {o1 SSet i} 1 "forward earlybinding tcl set"
-#exit
 
+? {::xotcl::Object info instforward -definition SSet} "-earlybinding -objscope ::set"
+
 o1 set z 100
 #o1 forward z o1 [list %argclindex [list set set]] %proc
 #o1 proc get name {my set $name}