From 5c1f4702d58b33d6325432c6fb4f026f0bd30c5d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 22 Jan 1998 23:07:38 +0000
Subject: [PATCH] Fix problem caused by incorrect assumption that universal
 time is the same as unix file time.

---
 v7/src/6001/floppy.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index 1ecded5bc..f51dd8900 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.19 1997/03/04 06:45:17 cph Exp $
+$Id: floppy.scm,v 1.20 1998/01/22 23:07:38 cph Exp $
 
-Copyright (c) 1992-97 Massachusetts Institute of Technology
+Copyright (c) 1992-98 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -712,7 +712,7 @@ M-x rename-file, or use the `r' command in Dired.")
 
 (define (time-zone-offset)
   (let ((decoded-time (get-decoded-time)))
-    (- (* (quotient (get-universal-time) 60) 60)
+    (- (* (quotient (universal-time->file-time (get-universal-time)) 60) 60)
        (make-dos-time (decoded-time/year decoded-time)
 		      (decoded-time/month decoded-time)
 		      (decoded-time/day decoded-time)
-- 
2.25.1