Как отметки графов с их весами

Предупреждение! Я разместил вопрос, когда Mathematica V 8.0 был самым крутым ребенком. Ошибка была решена нашей версии 9.0.1

. Справка для Edgelabels состояний:

Однако:

CompleteGraph[4,
 EdgeWeight -> Range@6,
 VertexShapeFunction -> "Name",
 EdgeLabels -> "EdgeWeight"]

приводит к:

так, так что нет меток краевых ... Я думаю, это ошибка.

Я использовал неприятную конструкцию, как:

adj = {{\[Infinity], 1, 1, 1, 1}, {1, \[Infinity], 2, 2, 2}, 
       {1, 2, \[Infinity], 2, 2}, {1, 2, 2, \[Infinity], 2}, 
       {1, 2, 2, 2, \[Infinity]}};

WeightedAdjacencyGraph[adj,
    VertexShapeFunction -> "Name", 
    EdgeLabels -> 
     MapThread[Rule,{EdgeList@#,AbsoluteOptions[#, EdgeWeight]/.{_ -> x_}-> x}], 
    GraphHighlight -> FindEdgeCover[#]]  
                                        &@ WeightedAdjacencyGraph[adj]

Лучшие идеи?