Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -rfc4e3f5f6a94ef7324baffab90d58cd7eb513907 -reb82f3d8597d0eb8b6764997660ccc7c535fd339
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision fc4e3f5f6a94ef7324baffab90d58cd7eb513907)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision eb82f3d8597d0eb8b6764997660ccc7c535fd339)
@@ -204,6 +204,7 @@
 #o1 forward z o1 [list %argclindex [list set set]] %proc
 #o1 proc get name {my set $name}
 o1 forward get -earlybinding ::nsf::setvar %self %1
+? {o1 info forward} get
 ? {o1 get z 101} 101
 ? {o1 get z} "101"