Index: doc/example-scripts/tk-horse-race.tcl
===================================================================
diff -u -N -rd31c271afb2488abafa0642b07538a3e62106130 -r31e9b2929718e014fbbad009eb69af6dff0c120a
--- doc/example-scripts/tk-horse-race.tcl	(.../tk-horse-race.tcl)	(revision d31c271afb2488abafa0642b07538a3e62106130)
+++ doc/example-scripts/tk-horse-race.tcl	(.../tk-horse-race.tcl)	(revision 31e9b2929718e014fbbad009eb69af6dff0c120a)
@@ -127,7 +127,7 @@
        ${:canvas} move $this [:lpick {0 1 2 3}] 0
        update
        if {[lindex [${:canvas} bbox $this] 2] > $finish} {
-	 lappend :winners [expr {[llength ${:winners}]+1}]:[$this name]
+	 lappend :winners [expr {[llength ${:winners}]+1}]:[$this cget -name]
 	 :lremove running $this
        }
      }