diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 72d9f17..4bbe91e 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -58,13 +58,13 @@
 (syntax-test '(unit (import i) (export (a x) b) (define x 5) (define b 6)))
 (syntax-test '(unit (import i) (export (a x) b) (set! a 5) (define b 6)))
 
-; No identifiers in link/export:
-(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export))) 
-(syntax-test '(compound-unit (import) (link (A (0))) (export (A))))
-(syntax-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)))
-(syntax-test '(compound-unit (import) (link (A (0)) (B (0))) (export (A x) (B))))
+; Empty exports are syntactically ok::
+(error-test '(compound-unit (import) (link (A (0))) (export (A))) exn:unit:non-unit?)
+(error-test '(compound-unit (import) (link (A (0 (B))) (B (0))) (export)) exn:unit:non-unit?)
+(error-test '(compound-unit (import) (link (A (0)) (B (0))) (export (A x) (B))) exn:unit:non-unit?)
 
 ; Self-import:
+(syntax-test '(compound-unit (import) (link (A (0 (A)))) (export))) 
 (syntax-test '(compound-unit (import) (link (A (0 (A x)))) (export)))
 
 (unless (defined? 'test-global-var)