From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ermine@ermine.pp.ru>
X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr
X-Spam-Level: *
X-Spam-Status: No, score=1.2 required=5.0 tests=AWL,SPF_FAIL 
	autolearn=disabled version=3.1.3
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105])
	by yquem.inria.fr (Postfix) with ESMTP id 8F91EBBAF
	for <caml-list@yquem.inria.fr>; Wed, 17 Dec 2008 19:28:35 +0100 (CET)
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AvgEAPfTSEnZCiKb/2dsb2JhbACBbL0lWJE1ghhu
X-IronPort-AV: E=Sophos;i="4.36,238,1228086000"; 
   d="scan'208";a="32792580"
Received: from av6800.comex.ru (HELO home.mk.pp.ru) ([217.10.34.155])
  by mail4-smtp-sop.national.inria.fr with ESMTP; 17 Dec 2008 19:28:35 +0100
Received: from ermine.home (ermine.home [192.168.2.2])
	by home.mk.pp.ru (Postfix) with ESMTP id EA78820A50
	for <caml-list@yquem.inria.fr>; Wed, 17 Dec 2008 21:28:33 +0300 (MSK)
Received: by ermine.home (Postfix, from userid 1000)
	id 4EF2E1B58DE; Wed, 17 Dec 2008 21:28:34 +0300 (MSK)
Date: Wed, 17 Dec 2008 21:28:34 +0300
From: Anastasia Gornostaeva <ermine@ermine.pp.ru>
To: caml-list@yquem.inria.fr
Subject: fork() and threads in ocaml 3.11
Message-ID: <20081217182834.GB36722@ermine.home>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
User-Agent: Mutt/1.5.18 (2008-05-17)
X-Spam: no; 0.00; ocaml:01 uname:01 endline:01 ocaml:01 cvs:01 threads:01 unix:01 hangs:01 let:03 let:03 fork:05 thread:06 thread:06 create:12 ignore:13 

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