From 1d9e06eee5c7ce9f138ca46c70fce6d533c5f572 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 19 Feb 2012 12:37:55 -0500
Subject: [PATCH] Fix stupid zone expiry bug: timers are to be relative!

---
 zonedb.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zonedb.rkt b/zonedb.rkt
index ae7b600..16b92f6 100644
--- a/zonedb.rkt
+++ b/zonedb.rkt
@@ -120,7 +120,7 @@
       (lambda (expirymap)
 	(values new-zone
 		(set-union (list->set
-			    (map (lambda (e) (cons name e))
+			    (map (lambda (e) (cons name (- e now-seconds)))
 				 (filter (lambda (e) (not (infinite-lifetime? e)))
 					 (hash-values expirymap))))
 			   timers)))]