--- Combinatorica.m.orig	Tue Feb  3 20:17:14 1998
+++ Combinatorica.m	Tue Feb  3 20:17:32 1998
@@ -1719,17 +1719,22 @@
 		]
 	]
  
-ShowLabeledGraph[g_Graph] := ShowLabeledGraph[g,Range[V[g]]]
-ShowLabeledGraph[g1_Graph,labels_List] :=
+
+ShowLabeledGraph[g_Graph] := ShowLabeledGraph[g,Range[V[g]], Undirected]
+ShowLabeledGraph[g_Graph,Directed] := ShowLabeledGraph[g,Range[V[g]],Directed]
+ShowLabeledGraph[g_Graph,Undirected] := ShowLabeledGraph[g,Range[V[g]],Undirected]
+ShowLabeledGraph[g1_Graph,labels_List,type_:Undirected] :=
 	Module[{pairs=ToOrderedPairs[g1], g=NormalizeVertices[g1], v},
 		v = Vertices[g];
 		Show[
 			Graphics[
 				Join[
 					PointsAndLines[g],
+(**)                                  If[SameQ[type,Directed],Arrows[g],{}],
 					Map[(Line[Chop[ v[[#]] ]])&, pairs],
 					GraphLabels[v,labels]
 				]
+
 			],
 			{AspectRatio->1, PlotRange->FindPlotRange[v]} 
 		]