--- a/Collection.st	Thu Apr 14 14:50:57 2016 +0200
+++ b/Collection.st	Thu Apr 14 14:55:47 2016 +0200
@@ -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