diff --git a/test/test-program.script b/test/test-program.script
index d65c277aead0ea4ca082d63d51a539e6c35fad14..d0f5cb2663174615a52a72574aedb03af836d9d2 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -44,8 +44,7 @@
        :output (,*standard-output* :linewise t :prefix "stdout: ")
        :error-output (,*error-output* :linewise t :prefix "stderr: "))))))
 
-#-(or (and lispworks os-macosx)
-      (and ecl os-macosx))
+#-(and ecl os-macosx)
 (progn
   (DBG "test image-op")
   (defparameter img (output-file (make-operation 'image-op) (find-system :hello-world-example)))
@@ -83,8 +82,7 @@
      "  \"b c\""
      "  \"d\"")))
 
-#-(or (and lispworks os-macosx)
-      (and ecl os-macosx))
+#-(and ecl os-macosx)
 (progn
   (DBG "test program-op")
   (unless (or #+(or clisp clozure (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl) t