RSDominanceTreeLayout freezes (infinite recursion) with loop in diagram

[JanBliznicenko]

If you have a loop in a diagram and try to use RSDominanceTreeLayout, it causes infinite loop. An example:

c := RSCanvas new.

b1 := RSBox new.
b2 := RSBox new.
b3 := RSBox new.
boxes := { b1. b2. b3 }.

a1 := RSLine new from: b1; to: b2; yourself.
a2 := RSLine new from: b2; to: b3; yourself.
a3 := RSLine new from: b3; to: b1; yourself.
edges := { a1. a2. a3 }.

c addAll: boxes; addAll: edges.

RSDominanceTreeLayout new 
on: boxes edges: edges.

Question is, whether dominance tree layout even makes sense for diagrams with loops. If not, maybe a detection and error might be nicer than Pharo freeze?

However, it worked with Roassal2.

[JanBliznicenko]

Actually, similar thing happens in some cases, depending on sizes of the elements and subtrees, with regular tree layout as well (not just dominance):

c := RSCanvas new.

b0 := RSBox new.
b0 width: 200.
b1 := RSBox new.
b2 := RSBox new.
b3 := RSBox new.
boxes := { b0. b1. b2. b3 }.

a0 := RSLine new from: b0; to: b1; yourself.
a1 := RSLine new from: b1; to: b2; yourself.
a2 := RSLine new from: b2; to: b3; yourself.
a3 := RSLine new from: b3; to: b1; yourself.
edges := { a0. a1. a2. a3 }.

c addAll: boxes; addAll: edges.

RSTreeLayout new 
on: boxes edges: edges.