diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 3c248cd..1cada27 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -418,4 +418,9 @@
 	       (export)
 	       (define define-values 10)))
 
+(test #t unit? (unit 
+		(import define-values) 
+		(export)
+		(let () (define define-values 10) define-values)))
+
 (report-errs)
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 50cc969..201798f 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -464,8 +464,12 @@
 ; Not ok if defining an imported name, but error should be about
 ; redefining an imported name. (This behavior is not actually tested.)
 (syntax-test '(unit/sig ()
-	       (import (define-values) )
+	       (import (define-values))
 	       (define define-values 17)))
 
+(test #t unit/sig? (unit/sig ()
+		     (import (define-values))
+		     (let () (define define-values 10) define-values)))
+
 (report-errs)