From 7d65ee6127b5d5f9e143114b3952df890dbec090 Mon Sep 17 00:00:00 2001
From: Kalimehtar <kalimehtar@mail.ru>
Date: Fri, 11 Jul 2014 16:42:09 +0600
Subject: [PATCH] Fix _date to allow dates before 1970 year

---
 racket/collects/ffi/unsafe/com.rkt | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/racket/collects/ffi/unsafe/com.rkt b/racket/collects/ffi/unsafe/com.rkt
index 6605d7ca6b..7c349181a7 100644
--- a/racket/collects/ffi/unsafe/com.rkt
+++ b/racket/collects/ffi/unsafe/com.rkt
@@ -1447,13 +1447,16 @@
                 (define s (make-SYSTEMTIME 0 0 0 0 0 0 0 0))
                 (unless (not (zero? (VariantTimeToSystemTime d s)))
                   (error 'date "error converting date from COM date"))
-                (seconds->date
-                 (find-seconds (SYSTEMTIME-wSecond s)
-                               (SYSTEMTIME-wMinute s)
-                               (SYSTEMTIME-wHour s)
-                               (SYSTEMTIME-wDay s)
-                               (SYSTEMTIME-wMonth s)
-                               (SYSTEMTIME-wYear s))))))
+                (date (SYSTEMTIME-wSecond s)
+                      (SYSTEMTIME-wMinute s)
+                      (SYSTEMTIME-wHour s)
+                      (SYSTEMTIME-wDay s)
+                      (SYSTEMTIME-wMonth s)
+                      (SYSTEMTIME-wYear s)
+                      (SYSTEMTIME-wDayOfWeek s)
+                      0
+                      #f
+                      0))))
 
 (define _currency
   (make-ctype _CY