Percussion bug fix to FromMidi.lhs.