Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879 -rc13b31f42883e5f30ca6fd505efd0267c2c30ea8
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision c13b31f42883e5f30ca6fd505efd0267c2c30ea8)
@@ -137,12 +137,12 @@
 O2 superclass delete ::O
 ? {O2 superclass} "::M"
 
+#
+# The main difference between an Attribute and a Role is that it
+# references some other objects
+#
+::xotcl::MetaSlot create Role -superclass Attribute -parameter {references}
 
-# the main difference between an Attribute and a Role is that 
-# it references some other objects
-#Class Attribute -superclass ::xotcl::ObjectParameterSlot
-Class Role -superclass Attribute -parameter {references}
-
 ######################
 # application classes
 ######################