[CM] unbound variable with CM_Patterns.scm

[bil at ccrma.Stanford.EDU]

I think this is a problem with define-record-type which
I changed not too long ago.  Will poke at it...