Index: doc/foreach.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/foreach.n,v
retrieving revision 1.5
diff -u -d -r1.5 foreach.n
--- doc/foreach.n	26 Nov 2004 10:02:23 -0000	1.5
+++ doc/foreach.n	4 Dec 2004 04:32:10 -0000
@@ -54,11 +54,12 @@
 This loop prints every value in a list together with the square and
 cube of the value:
 .CS
-'\" Maintainers: notice the tab hacking below!
-.ta 32
-set values {1 3 5 7 2 4 6 8}	;# Odd numbers first, for fun!
-puts "Value\\tSquare\\tCube"	;# Neat-looking header
-\fBforeach\fR x $values {	;# Now loop and print...
+# Odd numbers first, for fun!
+set values {1 3 5 7 2 4 6 8}
+# Neat-looking header
+puts "Value\\tSquare\\tCube"
+# Now loop and print...
+\fBforeach\fR x $values {
     puts " $x\\t [expr {$x**2}]\\t [expr {$x**3}]"
 }
 .CE
