diff --git a/collects/rnrs/base-6.rkt b/collects/rnrs/base-6.rkt
index d293606ba8..88b0ff14a6 100644
--- a/collects/rnrs/base-6.rkt
+++ b/collects/rnrs/base-6.rkt
@@ -546,7 +546,7 @@
     [(_ (name . args) . body)
      (check-label #'name
                   stx
-                  (syntax/loc stx (r5rs:define (name . args) (#%stratified-body . body))))]
+                  (syntax/loc stx (r5rs:define (name . args) (let () (#%stratified-body . body)))))]
     [(_ . rest) #'(define . rest)]))
 
 ;; ----------------------------------------