Index: xotcl/tests/slottest.xotcl
===================================================================
diff -u -r20e421dc641dc39b53106b1296ac7e09d0b206f2 -r99a7a21854051cd691029b15ef8877aa9e86cf44
--- xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 20e421dc641dc39b53106b1296ac7e09d0b206f2)
+++ xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 99a7a21854051cd691029b15ef8877aa9e86cf44)
@@ -1,4 +1,4 @@
-# $Id: slottest.xotcl,v 1.2 2006/10/04 20:40:24 neumann Exp $
+# $Id: slottest.xotcl,v 1.3 2007/08/06 11:35:56 neumann Exp $
 package require XOTcl
 namespace import -force xotcl::*
 package require xotcl::test
@@ -424,12 +424,12 @@
 
 set ::hu 0
 Class C -slots {
-  Attribute x -initcmd {incr ::hu; set _ 101}
+  Attribute x -initcmd {incr ::hu; set x 101}
 }
 C c1
 ? {c1 info vars} ""
 ? {c1 set x} 101
-? {c1 info vars} x
+? {c1 info vars} "x"
 ? {set ::hu 1} 1