diff --git a/test/test-run-program.script b/test/test-run-program.script
index 794cfee1dea6d56288e2658251d2310036834e66..58eedc5beb7e47f402d4c57ba55d02affdd06b8b 100644
--- a/test/test-run-program.script
+++ b/test/test-run-program.script
@@ -52,8 +52,9 @@
     (run-program "echo foo ; echo bar >&2 ; echo baz ; echo quux >& 2"
                  :output :lines :error-output :output))))
 
-(DBG "Testing awkward legacy output capture via run-shell-command")
+#-(and sbcl os-windows)
 (let ((ok1 (format nil "; $ echo ok 1~%ok 1")))
+  (DBG "Testing awkward legacy output capture via run-shell-command")
   (assert-equal
    (dewindowize
     (stripln