$OpenBSD: patch-common_util_ml,v 1.2 2015/08/30 15:56:12 avsm Exp $
--- common/util.ml.orig	Tue Nov 18 11:42:46 2014
+++ common/util.ml	Mon Aug  3 18:07:28 2015
@@ -155,7 +155,7 @@ module Logging(X : sig val label : string end) = struc
     ) fmt
 end
 
-include Logging(struct let label = __FILE__ end) ;;
+include Logging(struct let label = "common/util.ml" end) ;;
 
 (** Printf bars are printed immediately on stderr.
  * they can be enabled or disabled (default) *)
