*** calendar/icalendar.el.old	2013-09-04 11:17:18.000000000 +0200
--- calendar/icalendar.el	2013-09-04 11:20:29.000000000 +0200
***************
*** 562,570 ****
          (when (and (> (length isodatetimestring) 15)
                     ;; UTC specifier present
                     (char-equal ?Z (aref isodatetimestring 15)))
            ;; if not UTC add current-time-zone offset
!           (setq second (+ (car (current-time-zone)) second)))
          ;; shift if necessary
          (if day-shift
              (let ((mdy (calendar-gregorian-from-absolute
                          (+ (calendar-absolute-from-gregorian
--- 562,573 ----
          (when (and (> (length isodatetimestring) 15)
                     ;; UTC specifier present
                     (char-equal ?Z (aref isodatetimestring 15)))
            ;; if not UTC add current-time-zone offset
!           ;; current-time-zone should be called with actual UTC time
!           ;; (daylight saving at that time may differ to current one)
!           (setq second (+ (car (current-time-zone
!                                 (encode-time second minute hour day month year 0))) second)))
          ;; shift if necessary
          (if day-shift
              (let ((mdy (calendar-gregorian-from-absolute
                          (+ (calendar-absolute-from-gregorian