Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -N -rcd6385e474d293b04f48d3d003e0a2f777b11d3b -rc493c042822de99268d18a994840c9bf32ee36a1
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision cd6385e474d293b04f48d3d003e0a2f777b11d3b)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision c493c042822de99268d18a994840c9bf32ee36a1)
@@ -601,14 +601,14 @@
 #
 
 Class Fred -slots {
-  #Attribute create a -defaultcmd { set _ 4 }
-  Attribute create a -trace default
-  a object method value=default {obj property} { return 4 }
+  #Attribute create attr1 -defaultcmd { set _ 4 }
+  Attribute create attr1 -trace default
+  attr1 object method value=default {obj property} { return 4 }
 }
-? {Fred x} ::x
-? {x a 4} 4
+? {Fred create x} ::x
+? {x attr1 4} 4
 x move y
-? {y a} 4
+? {y attr1} 4
 
 ::nx::test case slots-compat
 #