From 453238083613f1a91139f249a512cf5b755416e2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 21 Jul 1998 16:02:26 +0000
Subject: [PATCH] .

original commit: 6d1084ef8e811df28673896a81a0584d5ef0afe8
---
 collects/tests/mzscheme/unitsig.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 708f785..7f2740c 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -479,6 +479,7 @@
 		     (let () (define define-values 10) define-values)))
 
 ;; Invoke-unit linking in let-bound variables
+(define x 'not-the-right-x)
 (test '(the-x 10) 'invoke/sig 
       (let ([x 'the-x])
 	(invoke-unit/sig