From ef48ccf1f75c2609a31409599dfdf10ab56febf3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 18 Jan 2001 12:51:05 +0000
Subject: [PATCH] .

original commit: 44b222034fdd709dd16f172517bc5507cd84ae19
---
 collects/tests/mzscheme/unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index a40d7b6..ecec74b 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -130,7 +130,7 @@
 (syntax-test #'(compound-unit (import) (link (a (b))) (export (a (x)))))
 (syntax-test #'(compound-unit (import) (link (a (b))) (export (1 w))))
 
-(test unit? (compound-unit (import) (link) (export)))
+(test #t unit? (compound-unit (import) (link) (export)))
 
 ; Simple: