[plt-scheme] 3.99: lazy + match ?

I am trying to use match and the lazy language together but they don't 
seem to be cooperating. Should this work?

#lang lazy
(require scheme/match)

(define-struct f (x))

(printf "test1 ~a\n"
        (match (make-f 1)
               ((struct f (x)) 'ok)))

 >
match: no matching clause for #<promise:temp4>

 === context ===
/home/kazzmir/svn/plt/trunk/collects/scheme/match/patterns.ss:17:0: 
match:error

It works fine in #lang scheme. I'm running from svn, r9936( mzscheme 
v3.99.0.25 ).