Index: doc/example-scripts/rosetta-polymorphism.tcl
===================================================================
diff -u -r5693145107c55b5f64bf0fb487aa43e0f2238f1a -rf71f786b01f7ad3d6749bc43c14c5f5d39658480
--- doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision 5693145107c55b5f64bf0fb487aa43e0f2238f1a)
+++ doc/example-scripts/rosetta-polymorphism.tcl	(.../rosetta-polymorphism.tcl)	(revision f71f786b01f7ad3d6749bc43c14c5f5d39658480)
@@ -26,9 +26,11 @@
 
 # === Demonstrating the behavior in a shell: 
 
-# Create a point:
+# Create a point and get the print string:
 ? {set p [Point new -x 1.0 -y 2.0]} "::nsf::__#0"
 ? {$p print} "Point(1.0,2.0)"
+
+# Get the x coordinate of this point:
 ? {$p x} "1.0"
 
 # Create a circle: