diff --git a/perl-Tk.spec b/perl-Tk.spec
index 22a9d93..a576308 100644
--- a/perl-Tk.spec
+++ b/perl-Tk.spec
@@ -127,14 +127,14 @@ find . -type f -exec %{__perl} -pi -e \
 's,^(#!)(/usr/local)?/bin/perl\b,$1%{__perl}, if ($. == 1)' {} \;
 chmod -x pod/Popup.pod Tixish/lib/Tk/balArrow.xbm
 # fix for widget as docs
-%patch0
+%patch -P 0
 %{__perl} -pi -e \
 's,\@demopath\@,%{?_pkgdocdir}%{!?_pkgdocdir:%{_docdir}/%{name}-%{version}}/demos,g' demos/widget
 # debian patch
-#%%patch1 -p1
+#%%patch -P 1 -p1
 # patch to fix #235666 ... seems like caching code is broken
-%patch2 -p1 -b .seg
-%patch3 -p1 -b .c99
+%patch -P 2 -p1 -b .seg
+%patch -P 3 -p1 -b .c99
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor X11LIB=%{_libdir} XFT=1
@@ -183,6 +183,7 @@ find __demos/ -type f -exec chmod -x {} \;
 
 %changelog
 * Thu Jun 01 2023 Michal Josef Špaček <mspacek@redhat.com> - 804.036-10
+- Fix %patch macro
 - Update license to SPDX format
 
 * Fri Feb 24 2023 Florian Weimer <fweimer@redhat.com> - 804.036-9