diff --git a/event-list.cabal b/event-list.cabal
--- a/event-list.cabal
+++ b/event-list.cabal
@@ -1,5 +1,5 @@
 Name:             event-list
-Version:          0.0.11
+Version:          0.0.11.1
 License:          GPL
 License-File:     LICENSE
 Author:           Henning Thielemann <haskell@henning-thielemann.de>
@@ -26,7 +26,7 @@
 Source-Repository this
   type:     darcs
   location: http://code.haskell.org/~thielema/event-list/
-  tag:      0.0.11
+  tag:      0.0.11.1
 
 Flag splitBase
   description: Choose the new smaller, split-up base package.
diff --git a/src/Data/EventList/Relative/TimeTimePrivate.hs b/src/Data/EventList/Relative/TimeTimePrivate.hs
--- a/src/Data/EventList/Relative/TimeTimePrivate.hs
+++ b/src/Data/EventList/Relative/TimeTimePrivate.hs
@@ -150,7 +150,14 @@
 mapTimeTail ::
    (BodyTimeList.T time body0 -> BodyTimeList.T time body1) ->
    T time body0 -> T time body1
-mapTimeTail = lift . Mixed.mapSecondTail . BodyTimePriv.unlift
+mapTimeTail f =
+   switchTimeL (\time -> consTime time . f)
+{-
+This causes a memory leak when used with chunky time values.
+
+mapTimeTail =
+   lift . Mixed.mapSecondTail . BodyTimePriv.unlift
+-}
 
 
 mapTimeR ::