Index: doc/example-scripts/tk-spread.tcl
===================================================================
diff -u -rd31c271afb2488abafa0642b07538a3e62106130 -rc2374366bcb47c70ebd33cb16c8152eba783987f
--- doc/example-scripts/tk-spread.tcl	(.../tk-spread.tcl)	(revision d31c271afb2488abafa0642b07538a3e62106130)
+++ doc/example-scripts/tk-spread.tcl	(.../tk-spread.tcl)	(revision c2374366bcb47c70ebd33cb16c8152eba783987f)
@@ -26,7 +26,7 @@
    # If no widget is provided, use the name of the object as widget
    # name.
    #
-   :property {widget ".[namespace tail [self]]"}
+   :property -accessor public {widget ".[namespace tail [self]]"}
 
    #
    # Use the nx callback trait