Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -r27e11788125901ff468955117d165f70d3871ce0 -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 27e11788125901ff468955117d165f70d3871ce0)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8)
@@ -112,7 +112,7 @@
 #? {O2 superclass O} "superclass 1"
 ? {O superclass} "::xotcl::Object"
 
-::nx::ObjectParameterSlot method slot {object name property} {
+::nx::ObjectParameterSlot public method slot {object name property} {
   switch $property {
     self {return [self]}
     domain {return [my domain]}
@@ -327,7 +327,7 @@
 
 # redefine setter for foo of class A
 #A slot foo method assign {domain var val} ...
-A::slot::foo method assign {domain var val} {
+A::slot::foo public method assign {domain var val} {
   # Do something with [self] that isn't valid pre-init
   puts setter-[self proc]
   $domain set $var $val
@@ -409,7 +409,7 @@
 
 Person slots {
   Attribute create sex -type "sex" -convert true {
-    :method type=sex {name value} {
+    :public method type=sex {name value} {
       #puts stderr "[self] slot specific converter"
       switch -glob $value {
         m* {return m}
@@ -479,7 +479,7 @@
 
 Class create A -slots {
   Attribute create foo -default 1 {
-    :method assign { domain var value} {
+    :public method assign { domain var value} {
       if {$value < 0 || $value > 99} {
         error "$value is not in the range of 0 .. 99"
       }