$NetBSD: patch-ab,v 1.5 2009/02/17 19:16:29 joerg Exp $

--- glib/giochannel.ml.orig	2009-02-17 19:39:55.000000000 +0100
+++ glib/giochannel.ml
@@ -24,7 +24,7 @@ external new_file : string -> string -> 
 
 external read_chars : t -> ?off:int -> ?len:int -> string -> 
   [ `NORMAL of int | `AGAIN | `EOF]
-  = "ml_g_io_channel_read_chars"
+  = "my_ml_g_io_channel_read_chars"
 external write_chars : t -> ?bytes_written:int ref -> ?off:int -> ?len:int -> string -> 
   [ `NORMAL of int | `AGAIN]
   = "ml_g_io_channel_write_chars"