diff --git a/test/test-program.script b/test/test-program.script
index 7c54fcb3e7a5ae27ece61ef93db73b214e428b02..0867dc9040032e9421fcc1827a3e2a4490aaa135 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -1,7 +1,7 @@
 ;;; -*- Lisp -*-
 (DBG :foo (current-lisp-file-pathname))
 
-(unless (or #+(or allegro clisp clozure cmu (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
+(unless (or #+(or allegro (and clisp os-unix) clozure cmu (and ecl (not ecl-bytecmp)) lispworks mkcl sbcl scl) t)
   (DBG "Creating images is not supported on your CL implementation")
   (leave-test "Skipping test" 0))