[plt-scheme] SRFI 64 in plt-scheme

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Being a novice, I may have screwed this up myself. Knowing that, I  
can't seem to use (test-group) when using sfri-64.

This works fine:
(test-begin "Truthiness")
(test-eqv 1 (- (+ 1 1) 1))
(test-end "Truthiness")

But this doesn't seem to work:
(test-group "Truthiness"
   (test-eqv 1 (- (+ 1 1) 1)))

With much ignorance, I copied and adapted some code in testing.ss  
into the following:
(define-syntax test-group
   (syntax-rules ()
     ((test-group suite-name . body)
      (dynamic-wind
       (lambda () (test-begin suite-name))
       (lambda () . body)
       (lambda () (test-end  suite-name))))))

Of course, I stripped out half of the functionality to make it work.

Is this a bug that can be fixed another way?

Joseph Holsten
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (Darwin)

iD8DBQFG/6dcxYqeHL30HVYRAooiAJwIwo+2NHiBFYy5azOvopMo0tXL2QCghr2B
Vl7zX/dv1I90+2JKi9uiEeM=
=oo/s
-----END PGP SIGNATURE-----