$OpenBSD: patch-algo_defaultgraphs_ml,v 1.1 2015/08/30 15:56:12 avsm Exp $
--- algo/defaultgraphs.ml.orig	Tue Nov 18 11:42:46 2014
+++ algo/defaultgraphs.ml	Mon Aug  3 18:07:28 2015
@@ -16,7 +16,7 @@ open ExtLib
 open Graph
 open Common
 
-include Util.Logging(struct let label = __FILE__ end) ;;
+include Util.Logging(struct let label = "algo/defaultgraphs.ml" end) ;;
 
 let tr_timer = Util.Timer.create "Defaultgraph.GraphOper.transitive_reduction"
 let trbar = Util.Progress.create "Defaultgraph.GraphOper.transitive_reduction"
