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)))]