Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -r2872e1f0a6523c7fb44952492e05414c4f8d9c84 -rc291f4b6224e412028c70b33d227d352ce6eb7b9
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision c291f4b6224e412028c70b33d227d352ce6eb7b9)
@@ -419,7 +419,7 @@
     set slotContainer [::nx::slotObj [::nsf::self]]
     foreach arg $arglist {
       #puts stderr "[self] ::nsf::classes::nx::Class::property $arg"
-      [self] ::nsf::classes::nx::Class::property $arg
+      [self] ::nsf::classes::nx::Class::property -accessor public $arg
     }
     ::nsf::var::set $slotContainer __parameter $arglist
   }