diff --git a/clisp-pts-access.patch b/clisp-pts-access.patch
new file mode 100644
index 0000000..78d9b6e
--- /dev/null
+++ b/clisp-pts-access.patch
@@ -0,0 +1,11 @@
+--- 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
+ (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)))
+-#.(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)
+ 
+ #+clisp
+ (progn
diff --git a/clisp.spec b/clisp.spec
index 312e142..292965d 100644
--- a/clisp.spec
+++ b/clisp.spec
@@ -30,6 +30,8 @@ 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
+Patch4:         %{name}-pts-access.patch
 
 BuildRequires:	dbus-devel
 BuildRequires:	diffutils
@@ -414,6 +416,9 @@ make -C build base-mod-check
 
 
 %changelog
+* Fri Jan 28 2022 Jerry James <loganjerry@gmail.com> - 2.49.93-23
+- Add -pts-access patch to fix FTBFS
+
 * Wed Jan 19 2022 Fedora Release Engineering <releng@fedoraproject.org> - 2.49.93-23
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_36_Mass_Rebuild