diff --git a/collects/lang/private/firstorder.ss b/collects/lang/private/firstorder.ss
index 6181bb0929..e8eb8de666 100644
--- a/collects/lang/private/firstorder.ss
+++ b/collects/lang/private/firstorder.ss
@@ -13,8 +13,11 @@
       (if (or (fo? v)
               (and (set!-transformer? v)
                    (fo? (set!-transformer-procedure v))))
-          (syntax-local-introduce 
-	   (fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
+          (syntax-property
+           (syntax-local-introduce 
+            (fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
+           'disappeared-use
+           (syntax-local-introduce id))
 	  id))))