src/runtime/savres.scm (disk-save): Save time world was restored.

diff --git a/src/runtime/savres.scm b/src/runtime/savres.scm
index 2357564243df8fb13da263956d68868391daf435..395f9d053346528060a55358e4f28081a4520309 100644 (file)
--- 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)))