Index: xotcl/tests/slottest.xotcl
===================================================================
diff -u -rf9bb662bd07a30d00a33e75ab3354bb9f8463999 -re525b7364d9b1fbc7b06e81becf4fe0df06c4209
--- xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision f9bb662bd07a30d00a33e75ab3354bb9f8463999)
+++ xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision e525b7364d9b1fbc7b06e81becf4fe0df06c4209)
@@ -1,4 +1,4 @@
-# $Id: slottest.xotcl,v 1.4 2007/08/14 16:36:47 neumann Exp $
+# $Id: slottest.xotcl,v 1.5 2007/08/14 16:38:27 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