From 03df888facf0d8f50ad8e994e936011bee7aefe1 Mon Sep 17 00:00:00 2001
From: Nick Papadakis <edu/mit/csail/zurich/nick>
Date: Mon, 25 Jan 1993 00:45:45 +0000
Subject: [PATCH] Use the right package this time ... arrgh.

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

diff --git a/v7/src/6001/floppy.scm b/v7/src/6001/floppy.scm
index f25bcef09..7448fb0bf 100644
--- a/v7/src/6001/floppy.scm
+++ b/v7/src/6001/floppy.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: floppy.scm,v 1.13 1993/01/24 23:26:50 nick Exp $
+$Id: floppy.scm,v 1.14 1993/01/25 00:45:45 nick Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -661,7 +661,7 @@ M-x rename-file, or use the `r' command in Dired.")
 
 (define (time-zone-offset)
   (let ((decoded-time (get-decoded-time))
-	(file-time (get-time)))
+	(file-time ((access get-time (->environment '(runtime date/time))))))
     (- (* (quotient file-time 60) 60)
        (make-dos-time (decoded-time/year decoded-time)
 		      (decoded-time/month decoded-time)
-- 
2.25.1