diff --git a/LOG b/LOG
index 453cbf5ec4..b6525ad485 100644
--- a/LOG
+++ b/LOG
@@ -768,5 +768,7 @@
     5_5.ms
 - fix a few signatures
     primdata.ss
+- fix comment about Sscheme_program
+    main.c
 - fix even? and odd? to error on exceptional flonums
-    5_3.ss, 5_3.ms, fl.ms, root-experr*, patch*
+    5_3.ss, 5_3.ms, fl.ms, root-experr*, patch*
\ No newline at end of file
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 */