diff --git a/clisp-pts-access.patch b/clisp-pts-access.patch
index 78d9b6e..15e3ee8 100644
--- a/clisp-pts-access.patch
+++ b/clisp-pts-access.patch
@@ -1,11 +1,15 @@
 --- tests/streams.tst.orig	2021-06-28 14:32:42.000000000 -0600
-+++ tests/streams.tst	2022-01-28 13:42:47.471080169 -0700
-@@ -1290,7 +1290,7 @@ T
++++ tests/streams.tst	2022-01-28 14:04:45.685239619 -0700
+@@ -1288,9 +1288,9 @@ T
+ (streamp (setq s (make-stream :error))) T
+ (or (not (search "#P" (prin1-to-string s))) (pathnamep (truename s))) T
  (write-line "foo" s) "foo"
- (let ((*reopen-open-file* nil)) ; stdout can be a file, it will be detected!
-   (with-open-file (copy s :direction :output) (streamp copy)))
+-(let ((*reopen-open-file* nil)) ; stdout can be a file, it will be detected!
+-  (with-open-file (copy s :direction :output) (streamp copy)))
 -#.(if (member (ext:operating-system-type) '("AIX" "Haiku" "HP-UX" "Minix" "Windows") :test #'equal) 'ERROR 'T)
-+#.(if (member (ext:operating-system-type) '("AIX" "Haiku" "HP-UX" "Minix" "Windows" "Linux") :test #'equal) 'ERROR 'T)
++;;(let ((*reopen-open-file* nil)) ; stdout can be a file, it will be detected!
++;;  (with-open-file (copy s :direction :output) (streamp copy)))
++;;#.(if (member (ext:operating-system-type) '("AIX" "Haiku" "HP-UX" "Minix" "Windows") :test #'equal) 'ERROR 'T)
  
  #+clisp
  (progn
diff --git a/clisp.spec b/clisp.spec
index 292965d..e184cd0 100644
--- a/clisp.spec
+++ b/clisp.spec
@@ -30,7 +30,10 @@ Patch1:		%{name}-format.patch
 Patch2:		%{name}-pari.patch
 # The combination of register and volatile is nonsensical
 Patch3:		%{name}-register-volatile.patch
-# Writing directly to /dev/pts/0 fails with a permission error
+# A test that writes to /dev/pts/0 succeeds or fails apparently at random.
+# I can only guess that /dev/pts/0 may or may not be what the test expects.
+# Perhaps we are racing with something else that allocates a pty.  Disable
+# the test for now.
 Patch4:         %{name}-pts-access.patch
 
 BuildRequires:	dbus-devel