patch by Harm

This fixes the following error message:

definitions.ily: In procedure ly:event-property in expression (ly:event-property (event-cause right-bound) (quote pitch)):
definitions.ily: Wrong type argument in position 1 (expecting Stream_event): #f