diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 9bb2c8a..14047bf 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -592,6 +592,7 @@
              ;;; fabricate binding
              (let ([rib (interaction-env-rib env)])
                (let-values ([(lab loc_) (gen-define-label+loc id rib)])
+                 (extend-rib! rib id lab)
                  lab)))]
           [else #f])))