--- a/Collection.st	Thu May 16 17:35:39 2002 +0200
+++ b/Collection.st	Thu May 16 17:37:06 2002 +0200
@@ -1565,9 +1565,16 @@
         aBlock value:(aPair at:1) value:(aPair at:2).
     ]
     "
-     #( (1 one) (2 two) (3 three) (4 four) (5 five) (6 six)) 
-     pairsDo:[:num :sym | Transcript show:num; show:' is: '; showCR:sym]
-
+     #( 
+        (1 one) 
+        (2 two) 
+        (3 three) 
+        (4 four) 
+        (5 five) 
+        (6 six)
+      ) pairsDo:
+        [:num :sym | 
+            Transcript show:num; show:' is: '; showCR:sym]
 
      #( (1 1)  (1 2)  (1 3)  (1 4)  (1 5)) 
      pairsDo:[:x :y | Transcript showCR:x@y]
@@ -1652,8 +1659,17 @@
         aBlock value:(aTriple at:1) value:(aTriple at:2) value:(aTriple at:3).
     ]
     "
-     #( (1 one eins) (2 two zwei) (3 three drei) (4 four vier) (5 five #'fuenf') (6 six sechs)) 
-     triplesDo:[:num :sym1 :sym2 | Transcript show:num; space; show:sym1; space; showCR:sym2]
+     #( 
+        (1 one eins) 
+        (2 two zwei) 
+        (3 three drei) 
+        (4 four vier) 
+        (5 five #'fuenf') 
+        (6 six sechs)
+     ) 
+     triplesDo:[:num :sym1 :sym2 | 
+                    Transcript show:num; space; show:sym1; space; showCR:sym2
+               ]
     "
 
     "Modified: 10.5.1997 / 14:15:43 / cg"
@@ -2383,6 +2399,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.124 2002-05-15 08:04:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.125 2002-05-16 15:37:06 cg Exp $'
 ! !
 Collection initialize!