Index: doc/example-scripts/bagel.tcl
===================================================================
diff -u -r5693145107c55b5f64bf0fb487aa43e0f2238f1a -r2872e1f0a6523c7fb44952492e05414c4f8d9c84
--- doc/example-scripts/bagel.tcl	(.../bagel.tcl)	(revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a)
+++ doc/example-scripts/bagel.tcl	(.../bagel.tcl)	(revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84)
@@ -27,7 +27,7 @@
 # they've been toasted. We can create and access an instance variable
 # by defining an property for the class. All instance variables are
 # per default public in the sense of C++.
-? {Bagel property {toasted 0}} "::nsf::classes::Bagel::toasted"
+? {Bagel property -accessor public {toasted 0}} "::nsf::classes::Bagel::toasted"
 
 # Since abagel was created before the definition of the property we
 # have to set the default value for it using the setter method. Again,
@@ -95,7 +95,7 @@
 # toppings are empty.
 
 ? {nx::Class create SpreadableBagel -superclass Bagel {
-    :property {toppings:0..n ""}
+    :property -accessor public {toppings:0..n ""}
 }} ::SpreadableBagel
 
 ? {SpreadableBagel info superclass} ::Bagel