Index: tests/tcl86.tcl
===================================================================
diff -u -rd137fce76cdcb71cb10ea76a24e480923124d12c -r1a79d773d2d60c43bacefd3e6e87ba1ba38f46d5
--- tests/tcl86.tcl	(.../tcl86.tcl)	(revision d137fce76cdcb71cb10ea76a24e480923124d12c)
+++ tests/tcl86.tcl	(.../tcl86.tcl)	(revision 1a79d773d2d60c43bacefd3e6e87ba1ba38f46d5)
@@ -4,11 +4,14 @@
 # just 8.6 or similar
 if {[info command yield] eq ""} return
 
-Test case coro-generator {
-  # ===================================
-  # nx coro
-  # ===================================
+#
+# Test coroutine / yield
+#
+Test case number-generator {
+
   nx::Object create numbers {
+
+    # set instance variable used in coroutine
     set :delta 2
 
     :public method ++ {} {  
@@ -20,12 +23,17 @@
       }
     }
   }
-  
+
+  # create coroutine
   coroutine nextNumber numbers ++
   set ::j 0
+
+  # use coroutine
   for {set i 0} {$i < 10} {incr i} {
     incr ::j [nextNumber]
   }
+
+  # remove coroutine
   rename nextNumber {}
 
   ? {set ::j} 90