diff --git a/dev/graph.lisp b/dev/graph.lisp
index 60864ff..a4d49e2 100644
--- a/dev/graph.lisp
+++ b/dev/graph.lisp
@@ -130,7 +130,8 @@ something is putting something on the vertexes plist's
 
 
 (defmethod weight ((edge basic-edge)) (values 1.0))
-
+(defmethod weight ((edge weighted-edge-mixin)) 
+  (slot-value edge 'weight))
 
 (defclass* basic-graph ()
   ((graph-vertexes :unbound ir)
@@ -643,7 +644,7 @@ something is putting something on the vertexes plist's
 
 (defmethod rootp ((vertex basic-vertex))
   ;;?? this is inefficient in the same way that (zerop (length <list>)) is...
-  (zerop (source-edge-count vertex)))
+  (zerop (target-edge-count vertex)))
 
 
 (defmethod find-vertex-if ((graph basic-graph) fn &key key)