diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 6709b7a9db96b4b6423ec0772334568bb40310fd..fcfa25156e4d1ee5787e24cb5478ea5284fcdc09 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -428,6 +428,7 @@ It returns a process-info plist with possible keys:
            (%input (%normalize-io-specifier input :input))
            (%output (%normalize-io-specifier output :output))
            (%error-output (%normalize-io-specifier error-output :error-output))
+           #+(and allegro os-windows) (interactive (%interactivep input output error-output))
            (process*
              #+allegro
              (multiple-value-list