2016-02-16: month starts at 0

month starts at 0

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -206,7 +206,7 @@
                              (let* ((hint-alist (parse-datehint hint))
                                     (date (assoc-ref hint-alist 'date))
                                     (month (string->number (list-ref (string-split date #\-) 2)))
-                                    (min-week (* (- month 1) 4))) ; avoid trying to download weeks which cannot be available.
+                                    (min-week (* month 4))) ; avoid trying to download weeks which cannot be available.
                                (delete #f ;; only return the filenames of successful downloads 
                                        (n-par-map 52 (lambda (week)
                                                        (if (< week min-week) ; avoid weeks earlier than the date in the yearly date hint