diff --git a/test/run-shell-command-test.script b/test/run-shell-command-test.script
index 6c490bfeade8746b4cad3eb80343dbc24454a18f..216424fbcb90268db715204656969e2b911408d2 100644
--- a/test/run-shell-command-test.script
+++ b/test/run-shell-command-test.script
@@ -4,7 +4,14 @@
 
 ;;; test asdf run-shell-command function
 ;;; Stas Boukarev found (and fixed) a bug where on clisp asdf:run-shell-command might not return
-;;; the right value.  This attemtps to test for that.
-(quit-on-error
- (assert (eql 1 (asdf:run-shell-command "/usr/bin/false")))
- (assert (eql 0 (asdf:run-shell-command "/usr/bin/true"))))
+;;; the right value.  This attempts to test for that.
+(unless (some #'(lambda (x) (member x *features*))
+              '(:win :windows :mswindows :win32 :mingw32))
+  (quit-on-error
+   (let ((true-false-dir
+          (cond ((probe-file "/bin/true") "/bin/")
+                ((probe-file "/usr/bin/true") "/usr/bin/")
+                (t (error "Unable to find the standard true binary.")))))
+     (assert (eql 1 (asdf:run-shell-command (concatenate 'string true-false-dir "false"))))
+     (assert (eql 0 (asdf:run-shell-command (concatenate 'string true-false-dir "true")))))))
+