Index: doc/example-scripts/rosetta-polymorphism.tcl
===================================================================
diff -u -rf71f786b01f7ad3d6749bc43c14c5f5d39658480 -r2872e1f0a6523c7fb44952492e05414c4f8d9c84
--- doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
+++ doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision 2872e1f0a6523c7fb44952492e05414c4f8d9c84)
@@ -31,15 +31,15 @@
 ? {$p print} "Point(1.0,2.0)"
 
 # Get the x coordinate of this point:
-? {$p x} "1.0"
+? {$p cget -x} "1.0"
 
 # Create a circle:
 ? {set c [Circle new -x 3.0 -y 4.0 -radius 5.0]} "::nsf::__#1"
 # Copy the circle
 ? {set d [$c copy]} "::nsf::__#3"
 
 # Change the radius of the copied circle:
-? {$d radius 1.5} 1.5
+? {$d configure -radius 1.5} ""
 
 # Print the two circles:
 ? {$c print} "Circle(3.0,4.0,5.0)"