diff --git a/src/mzscheme/src/port.c b/src/mzscheme/src/port.c
index ef4f740bed..adea899e5e 100644
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@@ -6733,7 +6733,7 @@ static Scheme_Object *subprocess_kill(int argc, Scheme_Object **argv)
 	if (sc->done)
 	  return scheme_void;
 
-	if (!kill(sp->pid, SCHEME_TRUEP(argv[1]) ? SIGINT : SIGKILL))
+	if (!kill(sp->pid, SCHEME_TRUEP(argv[1]) ? SIGKILL : SIGINT))
 	  return scheme_void;
 
 	if (errno != EINTR)