diff --git a/changelog.md b/changelog.md
new file mode 100644
--- /dev/null
+++ b/changelog.md
@@ -0,0 +1,14 @@
+## v0.1.1.1
+
+  * fixed a bug in "extractFirst" (the time value returned was incorrect)
+
+## v0.1.1
+
+  * added `Eq`/`Ord`/`Show` instances to `TempoMap` and `MeasureMap`
+
+  * `TempoMap` can go back to an event list of tempos,
+    and `MeasureMap` can go back to an event list of time signatures
+
+## v0.1
+
+  * initial release
diff --git a/midi-util.cabal b/midi-util.cabal
--- a/midi-util.cabal
+++ b/midi-util.cabal
@@ -1,5 +1,5 @@
 name:                 midi-util
-version:              0.1.1
+version:              0.1.1.1
 synopsis:             Utility functions for processing MIDI files
 description:
   Common high-level tasks when processing MIDI files.
@@ -19,6 +19,8 @@
 homepage:             http://github.com/mtolly/midi-util
 bug-reports:          http://github.com/mtolly/midi-util/issues
 stability:            Seems to work, passes a few tests
+extra-source-files:
+  changelog.md
 
 library
   exposed-modules:
diff --git a/src/Sound/MIDI/Util.hs b/src/Sound/MIDI/Util.hs
--- a/src/Sound/MIDI/Util.hs
+++ b/src/Sound/MIDI/Util.hs
@@ -362,7 +362,7 @@
 extractFirst f rtb = do
   ((dt, x), rtb') <- RTB.viewL rtb
   case f x of
-    Just y  -> return ((dt, y), rtb')
+    Just y  -> return ((dt, y), RTB.delay dt rtb')
     Nothing -> do
       ((dt_, y_), rtb_) <- extractFirst f rtb'
       return ((NNC.add dt dt_, y_), RTB.cons dt x rtb_)