Hello.

The program

open Unix
  
let os = (let f = open_process_in "uname -sr" in
          let answer = input_line f in
            ignore (close_process_in f); answer)
  
let _ =
  let f () =
    print_endline os
  in
  let t = Thread.create f () in
    Thread.join t

hangs on my FreeBSD 7.0.
I tried ocaml from yesterday's CVS, but it does not help.
How to be? 

ermine