--- a/Collection.st	Thu Apr 14 08:02:44 2016 +0100
+++ b/Collection.st	Mon Apr 18 07:17:25 2016 +0100
@@ -5370,7 +5370,9 @@
                 eachChild := graphEntry at:i.
                 (backTrace includesIdentical:eachChild) ifTrue:[
                     backTrace add:eachChild.
-                    self error:('cycle in ordering: %1' bindWith:backTrace reversed) mayProceed:true.
+                    ProceedableError
+                        raiseRequestWith:backTrace reversed
+                        errorString:('cycle in ordering: %1' bindWith:(backTrace reversed printStringWithSeparator:' -> ')).
                 ].
                 eachChildGraph := graph at:eachChild.
                 checkBlock value:eachChildGraph value:(backTrace copyWith:eachChild).
@@ -5875,6 +5877,7 @@
     ^ aVisitor visitCollection:self with:aParameter
 ! !
 
+
 !Collection class methodsFor:'documentation'!
 
 version