diff --git a/s/back.ss b/s/back.ss
index 9f9ae878ec..b04301886a 100644
--- a/s/back.ss
+++ b/s/back.ss
@@ -126,7 +126,7 @@
     (lambda (x)
       (and x #t))))
 
-(define generate-vfasl
+(define compile-vfasl
   ($make-thread-parameter #f
     (lambda (x)
       (and x #t))))
diff --git a/s/compile.ss b/s/compile.ss
index 20eec02c62..790bfd42f5 100644
--- a/s/compile.ss
+++ b/s/compile.ss
@@ -442,7 +442,7 @@
 
 (define (c-print-fasl x p)
   (cond
-   [(generate-vfasl) (c-print-vfasl x p)]
+   [(compile-vfasl) (c-print-vfasl x p)]
    [else
     (let ([t ($fasl-table)] [a? (or (generate-inspector-information) (eq? ($compile-profile) 'source))])
        (c-build-fasl x t a?)
diff --git a/s/primdata.ss b/s/primdata.ss
index f4d086d572..5dae302caa 100644
--- a/s/primdata.ss
+++ b/s/primdata.ss
@@ -925,6 +925,7 @@
   (compile-library-handler [sig [() -> (procedure)] [(procedure) -> (void)]] [flags])
   (compile-profile [sig [() -> (ptr)] [(ptr) -> (void)]] [flags unrestricted])
   (compile-program-handler [sig [() -> (procedure)] [(procedure) -> (void)]] [flags])
+  (compile-vfasl [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
   (console-error-port [sig [() -> (textual-output-port)] [(textual-output-port) -> (void)]] [flags])
   (console-input-port [sig [() -> (textual-input-port)] [(textual-input-port) -> (void)]] [flags])
   (console-output-port [sig [() -> (textual-output-port)] [(textual-output-port) -> (void)]] [flags])
@@ -960,7 +961,6 @@
   (generate-interrupt-trap [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
   (generate-procedure-source-information [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
   (generate-profile-forms [sig [() -> (boolean)] [(ptr) -> (void)]] [flags unrestricted])
-  (generate-vfasl [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
   (generate-wpo-files [sig [() -> (boolean)] [(ptr) -> (void)]] [flags])
   (gensym-count [sig [() -> (uint)] [(uint) -> (void)]] [flags])
   (gensym-prefix [sig [() -> (ptr)] [(ptr) -> (void)]] [flags unrestricted])