From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <ermine@ermine.pp.ru>
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78])
	by yquem.inria.fr (Postfix) with ESMTP id 7353BBB81
	for <Caml-list@yquem.inria.fr>; Fri, 24 Dec 2004 11:03:19 +0100 (CET)
Received: from home.mk.pp.ru (av6800.comex.ru [217.10.34.155])
	by nez-perce.inria.fr (8.13.0/8.13.0) with ESMTP id iBOA3ICh029816
	for <Caml-list@yquem.inria.fr>; Fri, 24 Dec 2004 11:03:19 +0100
Received: from ermine.home (ermine.home [192.168.2.2])
	by home.mk.pp.ru (Postfix) with ESMTP id 6CF3220A34
	for <Caml-list@yquem.inria.fr>; Fri, 24 Dec 2004 13:03:18 +0300 (MSK)
Received: by ermine.home (Postfix, from userid 1001)
	id 24D903A9E1F; Fri, 24 Dec 2004 13:04:22 +0300 (MSK)
Date: Fri, 24 Dec 2004 13:04:22 +0300
From: Anastasia Gornostaeva <ermine@ermine.pp.ru>
To: Caml-list@yquem.inria.fr
Subject: .-
Message-ID: <20041224100422.GA10012@ermine.home>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
User-Agent: Mutt/1.5.6i
X-Miltered: at nez-perce with ID 41CBE966.001 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; printf:01 printf:01 unix:01 curr:01 curr:01 diff:01 diff:01 let:03 let:03 hello:17 result:17 gives:18 why:22 open:24 with:28 
X-Spam-Checker-Version: SpamAssassin 3.0.0 (2004-09-13) on yquem.inria.fr
X-Spam-Status: No, score=0.1 required=5.0 tests=FORGED_RCVD_HELO 
	autolearn=disabled version=3.0.0
X-Spam-Level: 

Hello.

open Unix

let _ =
   let curr_time = time () in
   let curr_tm = gmtime curr_time in
   let new_time, _ = mktime {curr_tm with tm_hour = curr_tm.tm_hour+1} in
   let diff = new_time -. curr_time in
      Printf.printf "%f\n%f\n%f\n"
	 curr_time
	 new_time
	 diff


gives an negative result -7200.000000. Why?