Index: doc/example-scripts/rosetta-abstract-type.tcl
===================================================================
diff -u -rcd53d89c8bb4d5c622bc56fef18351813c10fdc3 -r719eecc82209c59eabf2ab50f082a177c5a001a9
--- doc/example-scripts/rosetta-abstract-type.tcl	(.../rosetta-abstract-type.tcl)	(revision cd53d89c8bb4d5c622bc56fef18351813c10fdc3)
+++ doc/example-scripts/rosetta-abstract-type.tcl	(.../rosetta-abstract-type.tcl)	(revision 719eecc82209c59eabf2ab50f082a177c5a001a9)
@@ -1,10 +1,15 @@
 #
 # == Rosetta Example: Abstract type 
-# For details see http://rosettacode.org/wiki/Abstract_type
 #
+# Define a class without instances and without implemented methods.
+# For detailed description of this example 
+# see http://rosettacode.org/wiki/Abstract_type
+#
 package req nx
 package req nx::test
 
+#
+# Define a class AbstractQueue
 nx::Class create AbstractQueue {
   
   :public method enqueue {item} {error "not implemented"}
@@ -16,7 +21,8 @@
 }
 
 #
-# Create a concrete queue:
+# Define a concrete queue (named ListQueue) based 
+# on the Abstract Queue
 nx::Class create ListQueue -superclass AbstractQueue {
   :variable list {}
   :public method enqueue {item} {