$OpenBSD: patch-algo_dominators_ml,v 1.1 2015/08/30 15:56:12 avsm Exp $
--- algo/dominators.ml.orig	Tue Nov 18 11:42:46 2014
+++ algo/dominators.ml	Mon Aug  3 18:07:28 2015
@@ -23,7 +23,7 @@ let crtimer = Util.Timer.create "Algo.Dominators.cycle
 let sdtrtimer = Util.Timer.create "Algo.Dominators.sd_transitive_reduction"
 let domtrtimer = Util.Timer.create "Algo.Dominators.dom_transitive_reduction"
 
-include Util.Logging(struct let label = __FILE__ end) ;;
+include Util.Logging(struct let label = "algo/dominators.ml" end) ;;
 
 module G = Defaultgraphs.PackageGraph.G
 module O = Defaultgraphs.GraphOper(G)
