--- a/Collection.st	Tue Dec 02 14:29:05 2008 +0100
+++ b/Collection.st	Tue Dec 02 18:10:07 2008 +0100
@@ -2908,6 +2908,7 @@
 
     "
      #(0 2 4 6 8) union:#(1 3 5 7)   
+     #(0 2 4 6 8) union:#(0 1 3 5 7)   
     "
 !
 
@@ -3011,7 +3012,13 @@
 
     "
      #((1 2) (1 3) (3 2)) topologicalSort
+     #((1 2) (1 3) (3 2) (4)) topologicalSort
+     #((1 1) (1 2) (1 3) (3 2) (4)) topologicalSort
+
+    with cycles:
      #((1 2) (1 3) (3 1)) topologicalSort
+     #((1 2) (2 3) (3 1)) topologicalSort
+     #((1 2) (2 3) (3 4) (4 1)) topologicalSort
 
      (Smalltalk allClasses collect:[:eachClass| 
         Array with:eachClass superclass with:eachClass
@@ -3268,7 +3275,7 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.208 2008-11-09 11:27:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.209 2008-12-02 17:10:07 stefan Exp $'
 ! !
 
 Collection initialize!