diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 7a05217..c42e418 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -443,4 +443,13 @@
 		(export)
 		(let () (define define-values 10) define-values)))
 
+;; Invoke-unit linking in let-baound variables
+(test '(the-x 10) 'invoke 
+      (let ([x 'the-x])
+	(invoke-unit
+	 (unit (import w) (export)
+	       (list w 10))
+	 x)))
+
+
 (report-errs)
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 1c40ff3..3956e5c 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -478,5 +478,13 @@
 		     (import (define-values))
 		     (let () (define define-values 10) define-values)))
 
+;; Invoke-unit linking in let-baound variables
+(test '(the-x 10) 'invoke/sig 
+      (let ([x 'the-x])
+	(invoke-unit/sig
+	 (unit/sig () (import (x))
+		   (list x 10))
+	 (x))))
+
 (report-errs)