diff --git a/music-score.cabal b/music-score.cabal
--- a/music-score.cabal
+++ b/music-score.cabal
@@ -1,6 +1,6 @@
 
 name:               music-score
-version:            1.2
+version:            1.2.1
 cabal-version:      >= 1.2
 author:             Hans Hoglund
 maintainer:         Hans Hoglund
diff --git a/src/Music/Score.hs b/src/Music/Score.hs
--- a/src/Music/Score.hs
+++ b/src/Music/Score.hs
@@ -214,19 +214,18 @@
 -- |
 -- Convert a score to a MIDI event.
 --    
-playMidi :: HasMidi a => Score a -> Event MidiMessage
-playMidi x = midiOut midiDest $ playback trig (pure $ toTrack $ rest^*0.2 |> x)
+playMidi :: HasMidi a => String -> Score a -> Event MidiMessage
+playMidi dest x = midiOut midiDest $ playback trig (pure $ toTrack $ rest^*0.2 |> x)
     where
         trig        = accumR 0 ((+ 0.005) <$ pulse 0.005)        
         toTrack     = fmap (\(t,_,m) -> (t,m)) . perform . getMidiScore
-        midiDest    = fromJust $ unsafeGetReactive (findDestination  $ pure "Graphic MIDI")
-        -- FIXME hardcoded output...
+        midiDest    = fromJust $ unsafeGetReactive (findDestination  $ pure dest)
 
 -- |
 -- Convert a score to a MIDI event and run it.
 --    
-playMidiIO :: HasMidi a => Score a -> IO ()
-playMidiIO = runLoop . playMidi
+playMidiIO :: HasMidi a => String -> Score a -> IO ()
+playMidiIO dest = runLoop . playMidi dest