diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index b9ccf9c0be0a89cb6a528ae3c486ddce2dff9f95..4c8fab316bab6d7be0d0b2b523a87b28d2c0171c 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -434,6 +434,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*
              (nest