diff --git a/collects/scheme/promise.ss b/collects/scheme/promise.ss
index 59e6ef3e0d..865bc5ed07 100644
--- a/collects/scheme/promise.ss
+++ b/collects/scheme/promise.ss
@@ -49,9 +49,9 @@
 ;;        - can also hold a raising-a-value thunk on exceptions and other
 ;;          `raise'd values (actually, applicable structs for printouts)
 
+;; Creates a `composable' promise
+;;   X = (force (lazy X)) = (force (lazy (lazy X))) = (force (lazy^n X))
 (define-syntax (lazy stx)
-  ;; Creates a `composable' promise
-  ;;   X = (force (lazy X)) = (force (lazy (lazy X))) = (force (lazy^n X))
   (syntax-case stx ()
     [(lazy expr) (with-syntax ([proc (syntax-property
                                       (syntax/loc stx (lambda () expr))