# 
# patch "viz_misc.ml"
#  from [c0f7e882e80792536f5ec1e63695211c306a66e6]
#    to [3480861e960d4f97092d197316e8032766a24b9e]
# 
# patch "viz_misc.mli"
#  from [0d137b9883d1ce144629f5b0aa5872752f9e1b6b]
#    to [143f89f5d846cb9ed5603040321df691a98e33b1]
# 
--- viz_misc.ml
+++ viz_misc.ml
@@ -135,7 +135,7 @@
 
 let log kwd fmt =
   Printf.kprintf
-    (fun s -> if debug kwd then prerr_endline s)
+    (fun s -> if debug kwd then Printf.eprintf "### %s: %s\n%!" kwd s)
     fmt
 
 module Signal = 
--- viz_misc.mli
+++ viz_misc.mli
@@ -26,6 +26,7 @@
 val get_home_dir : unit -> string
 
 val debug : string -> bool
+val log   : string -> ('a, unit, string, unit) format4 -> 'a
 
 module Signal :
   sig