[plt-scheme] problem with schemeunit #:before / #:after not working

So, I've got this simple file:

(require (planet "test.ss" ("schematics" "schemeunit.plt" 2 2)))

(define foo-test
  (test-suite
   "Suite name"
   #:before (lambda () (display "before"))
   #:after (lambda () (display "after"))
   (test-case
     "Foo"
     (check = 1 1))))


(require (planet "text-ui.ss" ("schematics" "schemeunit.plt" 2)))

(test/text-ui foo-test 'verbose)



the test-suite is copied from the HelpDesk entry on schemeunit

Then execute:

Welcome to DrScheme, version 350.
Language: Pretty Big (includes MrEd and Advanced Student).
1 success(es) 0 failure(s) 0 error(s) 1 test(s) run
0
>

corrrect test output, and correct return value, but I can't get the
before / after stuff to work.

I would be grateful for some pointers!

cheers

Chris