From c4630acd513318689af9023a9d2a8bdea738bdf9 Mon Sep 17 00:00:00 2001
From: Marcin Jekot <marcin@jekot.net>
Date: Thu, 27 Apr 2017 14:15:38 +0530
Subject: [PATCH] fix Time.to_sec_string call in log_entry

---
 code/guided-tour/main.topscript | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/guided-tour/main.topscript b/code/guided-tour/main.topscript
index 73fd741..0233b80 100644
--- a/code/guided-tour/main.topscript
+++ b/code/guided-tour/main.topscript
@@ -147,7 +147,7 @@ let log_entry maybe_time message =
       | Some x -> x
       | None -> Time.now ()
     in
-    Time.to_sec_string time ^ " -- " ^ message
+    Time.to_sec_string time (Time.Zone.of_string "UTC") ^ " -- " ^ message
   ;;
 log_entry (Some Time.epoch) "A long long time ago";;
 log_entry None "Up to the minute";;