2016-03-31: FIX: use the month of the date as month, not the day

FIX: use the month of the date as month, not the day

diff --git a/crawl-wot.scm b/crawl-wot.scm
--- a/crawl-wot.scm
+++ b/crawl-wot.scm
@@ -205,7 +205,7 @@
                              #f
                              (let* ((hint-alist (parse-datehint hint))
                                     (date (assoc-ref hint-alist 'date))
-                                    (month (string->number (list-ref (string-split date #\-) 2)))
+                                    (month (string->number (list-ref (string-split date #\-) 1)))
                                     (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 10 (lambda (week)