--- ocamldot.mll.orig
+++ ocamldot.mll
@@ -336,7 +336,7 @@
     let tcGraph = tc graph in
     let reachable node =
       (List.exists (fun r -> r=node) roots)
-      or
+      ||
       (List.exists (fun r -> isEdge tcGraph r node) roots) in