         (caldate (mhc-date-mm+ date -1))
         (col mhc-calendar-start-column)
         (prefix " +|")
-        (i 3))
+        (i 3)
+        (string))
     (mhc-calendar/delete-overlay)
     (set-text-properties (point-min) (point-max) nil)
     (erase-buffer)

         (i 0)
         (from  (mhc-date-mm-first date))
         (to    (mhc-date-mm-last  date))
         (start (mhc-date-ww date))
         (cdate from)
         week color cw day map dayinfo)
    (when (mhc-calendar/cw-week)

      (setq i (1- i)))
    (goto-char (point-min))
    (while (re-search-forward prefix nil t)
      (setq string (match-string 0))
      (delete-region (match-end 0) (match-beginning 0))
      (insert (make-string (length string) ?\ )))
    (setq mhc-calendar-date date)
    ;; (mhc-calendar/put-property-date)
    (and mhc-calendar-link-hnf (mhc-calendar/hnf-mark-diary-entries))
