From a03d3824ce8962eba027b9680f05d23b25e38b24 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Thu, 14 Jan 2016 17:55:40 -0700
Subject: [PATCH] src/runtime/savres.scm (disk-save): Save time world was
 restored.

---
 src/runtime/savres.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 235756424..395f9d053 100644
--- a/src/runtime/savres.scm
+++ b/src/runtime/savres.scm
@@ -41,6 +41,7 @@ USA.
 
 (define world-id "Image")
 (define time-world-saved #f)
+(define time-world-restored #f)
 (define *within-restore-window?*)
 
 (define (initialize-package!)
@@ -79,6 +80,7 @@ USA.
 	   (read-microcode-tables!)
 	   (lambda ()
 	     (set! time-world-saved time)
+	     (set! time-world-restored (get-universal-time))
 	     (let-fluid *within-restore-window?* #t
 	       (lambda ()
 		 (event-distributor/invoke! event:after-restore)))
-- 
2.25.1