--- unixport/init_gcl.lsp.in	Wed Oct  9 05:46:34 2002
+++ ../../fleep/gcl/unixport/init_gcl.lsp.in	Thu Oct 17 19:09:05 2002
@@ -12,11 +12,10 @@
 (make-package "DEFPACKAGE" :use '("LISP"))
 (make-package "TK" :use '("LISP" "SLOOP"))
 
-;;Appropriate for Austin
-#-winnt
-(setq SYSTEM:*DEFAULT-TIME-ZONE*  6)
-#+winnt
-(setq SYSTEM:*DEFAULT-TIME-ZONE*  (GET-SYSTEM-TIME-ZONE))
+(eval-when (load)
+    (if (fboundp 'get-system-time-zone)
+	(setf system:*default-time-zone* (get-system-time-zone))
+       (setf system:*default-time-zone* 6)))
 
 (in-package "USER")
 (progn