From c899d3b5c4f80901870d657a65203b18798583bd Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 22 Mar 2020 15:56:57 +0100
Subject: [PATCH] Fix zero-dates-to-null.

Fixes #1098.
---
 src/utils/transforms.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/utils/transforms.lisp b/src/utils/transforms.lisp
index 7cf0946..e7576e0 100644
--- a/src/utils/transforms.lisp
+++ b/src/utils/transforms.lisp
@@ -121,7 +121,7 @@
     ;; month is 00
     ((string= date-string "0000-00-00" :start1 5 :end1 7 :start2 5 :end2 7) nil)
     ;; year is 0000
-    ((string= date-string "0000-00-00" :start1 0 :end1 3 :start2 0 :end2 3) nil)
+    ((string= date-string "0000-00-00" :start1 0 :end1 4 :start2 0 :end2 4) nil)
     (t date-string)))
 
 (defun date-with-no-separator