Index: xotcl/tests/slottest.xotcl
===================================================================
diff -u -r99a7a21854051cd691029b15ef8877aa9e86cf44 -rf9bb662bd07a30d00a33e75ab3354bb9f8463999
--- xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 99a7a21854051cd691029b15ef8877aa9e86cf44)
+++ xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
@@ -1,4 +1,4 @@
-# $Id: slottest.xotcl,v 1.3 2007/08/06 11:35:56 neumann Exp $
+# $Id: slottest.xotcl,v 1.4 2007/08/14 16:36:47 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 x 101}
+  Attribute x -initcmd {incr ::hu; set _ 101}
 }
 C c1
 ? {c1 info vars} ""
 ? {c1 set x} 101
-? {c1 info vars} "x"
+? {c1 info vars} x
 ? {set ::hu 1} 1