diff --git a/LOG b/LOG
index b49cc39022..7b76ad546e 100644
--- a/LOG
+++ b/LOG
@@ -768,3 +768,5 @@
     5_5.ms
 - fix a few signatures
     primdata.ss
+- fix comment about Sscheme_program
+    main.c
diff --git a/c/main.c b/c/main.c
index ba9be6d5a3..8e697178bf 100644
--- a/c/main.c
+++ b/c/main.c
@@ -333,7 +333,7 @@ int main(int argc, const char *argv[]) {
    /* Sscheme_script invokes the value of the scheme-script parameter */
     status = Sscheme_script(scriptfile, new_argc, argv);
   else if (programfile != (char *)0)
-   /* Sscheme_script invokes the value of the scheme-script parameter */
+   /* Sscheme_program invokes the value of the scheme-program parameter */
     status = Sscheme_program(programfile, new_argc, argv);
   else {
    /* Sscheme_start invokes the value of the scheme-start parameter */