I'm having trouble with "EdgeLayout" -> "StraightLine" in the GraphLayout of EdgeTaggedGraph.

Here's an example without the StraightLine option:

Remove[vsf];
vsf[width_][pos_, label_, _] := 
  Inset[Framed[Pane[label, UpTo[width]], Background -> White], pos];
EdgeTaggedGraph[
 Flatten[Table[{
    Annotation[
     Column[{"Vertex", v}] \[DirectedEdge] 
      Column[{"Vertex", Mod[v + 1, 4]}], 
     EdgeLabels -> Placed[(v + 0.1), {1/3, {0.5, 0.5}}]],
    Annotation[
     Column[{"Vertex", Mod[v + 1, 4]}] \[DirectedEdge] 
      Column[{"Vertex", v}], 
     EdgeLabels -> Placed[(v + 0.2), {1/2, {0.5, 0.5}}]],
    Annotation[
     Column[{"Vertex", v}] \[DirectedEdge] 
      Column[{"Vertex", Mod[v + 1, 4]}], 
     EdgeLabels -> Placed[(v + 0.3), {2/3, {0.5, 0.5}}]]},
   {v, 0, 3}], 1],
 BaseStyle -> {Arrowheads[0.04], Black},
 PerformanceGoal -> "Quality",
 VertexShapeFunction -> vsf[32],
 AspectRatio -> 1,
 GraphLayout -> {"VertexLayout" -> "LayeredEmbedding"},
 ImageSize -> {3*72, Automatic}
 ]

Changing GraphLayout to

GraphLayout -> {"VertexLayout" -> "LayeredEmbedding", 
  "EdgeLayout" -> "StraightLine"}

Produces this result:

Is there a remedy for this?