--- src/utils/net/terminal.ml.orig 2005-11-19 17:19:45 UTC +++ src/utils/net/terminal.ml @@ -185,7 +185,7 @@ module Output = struct let canal = List.assoc chan !chanmap in etat.chan <- Some (chan, canal); info (sprintf "connecte au canal '%s'" chan); - (* {| canal ALL } *) + with Not_found -> (* pas encore de recepteur pour ce canal *) try (* on en cree un *) let serveur = nsrecord.get_loc chan in