diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index bd7a927f7..9aa486e98 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -660,7 +660,7 @@
            (close-fdes fdes)
            #t))))
 
-(when (provided? 'threads)
+(when (and (provided? 'threads) (provided? 'fcntl))
   (let* ((p (pipe))
          (r (car p))
          (w (cdr p)))