Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8 -r6e4c477c4fbc7e7c256d0325763546524ee1c676
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 6e4c477c4fbc7e7c256d0325763546524ee1c676)
@@ -513,6 +513,14 @@
 ? {llength [[lindex [lsort [$x info children]] 1] info children]} 3
 ? {llength [[lindex [lsort [$x info children]] 2] info children]} 0
 
+
+
+Class Fred -slots { Attribute create a -initcmd { set _ 4 } }
+? {Fred x} ::x
+? {x a 4} 4
+x move y
+? {y a} 4
+
 exit
 
 #puts [Person array get __defaults]