diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 2c0877484..3d6b07c95 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -1,6 +1,7 @@
 ;;;; popen.test --- exercise ice-9/popen.scm      -*- scheme -*-
 ;;;;
-;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014 Free Software Foundation, Inc.
+;;;; Copyright 2003, 2006, 2010, 2011, 2013, 2014,
+;;;;           2017 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -36,7 +37,8 @@
       restore-signals))
 
 (define-syntax-rule (if-supported body ...)
-  (begin body ...))
+  (when (provided? 'popen)
+        (begin body ...)))
 
 (if-supported
  (use-modules (ice-9 popen))