The reference implementation has the following syntax error:

   (define-syntax (stream-match-pattern x) ------)

It should be

   (define-syntax stream-match
     (lambda (x) ------)

After fixing that, I succeeded in running a small example in Larceny.

Andre