Index: doc/example-scripts/bagel.tcl
===================================================================
diff -u -racc540eae81024718461724ce69e7971fa9ddfa9 -rea09e74f9faa81e79037b6cb14a5798627637388
--- doc/example-scripts/bagel.tcl	(.../bagel.tcl)	(revision acc540eae81024718461724ce69e7971fa9ddfa9)
+++ doc/example-scripts/bagel.tcl	(.../bagel.tcl)	(revision ea09e74f9faa81e79037b6cb14a5798627637388)
@@ -33,10 +33,14 @@
 # have to set the default value for it using the setter method. Again,
 # the info method helps us keep track of things.
 
-? {abagel cget -toasted} 0
+? {abagel info vars} ""
 
+? {abagel configure -toasted 0} ""
+
 ? {abagel info vars} toasted
 
+? {abagel cget -toasted} 0
+
 # But we really want them to begin in an untoasted state to start
 # with.
 
@@ -125,8 +129,9 @@
 
 ? {abagel toast} ""
 ? {abagel toppings add jam} jam
+? {abagel toppings add m&m} "m&m jam"
 
-? {abagel taste} "toasty jam"
+? {abagel taste} "toasty m&m jam"
 
 # Of course, along come sesame, onion, poppy, and a host of other
 # bagels, requiring us to expand our scheme. We could keep track of