diff --git a/0001-Increase-test-timeout.patch b/0001-Increase-test-timeout.patch
new file mode 100644
index 0000000..28b23db
--- /dev/null
+++ b/0001-Increase-test-timeout.patch
@@ -0,0 +1,13 @@
+diff --git a/tests/testthat/test-pty.R b/tests/testthat/test-pty.R
+index 61b650d..749cfba 100644
+--- a/tests/testthat/test-pty.R
++++ b/tests/testthat/test-pty.R
+@@ -47,7 +47,7 @@ test_that("pty echo", {
+   expect_equal(p$read_output(), "foo")
+ 
+   p$write_input("bar\n")
+-  pr <- p$poll_io(300)
++  pr <- p$poll_io(600)
+   expect_equal(pr[["output"]], "ready")
+   if (pr[["output"]] != "ready") stop("no output")
+   expect_equal(p$read_output(), "bar\r\nfoobar\r\n")
diff --git a/R-processx.spec b/R-processx.spec
index 638b859..700b82c 100644
--- a/R-processx.spec
+++ b/R-processx.spec
@@ -9,6 +9,8 @@ Summary:          Execute and Control System Processes
 License:          MIT
 URL:              https://CRAN.R-project.org/package=%{packname}
 Source0:          https://cran.r-project.org/src/contrib/%{packname}_%{version}.tar.gz
+# Increase timeout a bit just to get s390x to work.
+Patch0001:        0001-Increase-test-timeout.patch
 
 # Here's the R view of the dependencies world:
 # Depends:
@@ -49,8 +51,12 @@ with a timeout. It can also poll several processes at once.
 %prep
 %setup -q -c -n %{packname}
 
+pushd %{packname}
+%patch0001 -p1
+
 # Don't need coverage; it's not packaged either.
-sed -i 's/covr, //g' %{packname}/DESCRIPTION
+sed -i 's/covr, //g' DESCRIPTION
+popd
 
 
 %build