diff --git a/s/fasl.ss b/s/fasl.ss
index 0b16422c13..e41f94495e 100644
--- a/s/fasl.ss
+++ b/s/fasl.ss
@@ -655,7 +655,7 @@
                           (for-each (lambda (x)
                                       (if (eq? 'begin (cdr (eq-hashtable-ref (table-hash t) x #f)))
                                           (proc x p)
-                                          (wrf x p t #t)))
+                                          (wrf x p t (constant annotation-all))))
                                     begins)))
                       (proc p)
                       (extractor))])