diff --git a/gcl-2.6.8-s390-reloc.patch b/gcl-2.6.8-s390-reloc.patch
new file mode 100644
index 0000000..5b4c864
--- /dev/null
+++ b/gcl-2.6.8-s390-reloc.patch
@@ -0,0 +1,11 @@
+diff -up gcl-2.6.8/h/elf32_s390_reloc.h.s390 gcl-2.6.8/h/elf32_s390_reloc.h
+--- gcl-2.6.8/h/elf32_s390_reloc.h.s390	2013-01-23 07:50:36.000000000 -0500
++++ gcl-2.6.8/h/elf32_s390_reloc.h	2013-01-23 07:50:43.000000000 -0500
+@@ -5,3 +5,7 @@
+   case     R_390_PC32:
+     add_val(where,~0L,s+a-p);
+     break;
++
++  case     R_390_PC32DBL:
++    add_val(where,~0L,(s+a-p)>>1);
++    break;
diff --git a/gcl.spec b/gcl.spec
index b2f9191..5254848 100644
--- a/gcl.spec
+++ b/gcl.spec
@@ -7,7 +7,7 @@
 
 Name:           gcl
 Version:        2.6.8
-Release:        0.13.%{alphatag}%{?dist}
+Release:        0.14.%{alphatag}%{?dist}
 Summary:        GNU Common Lisp
 
 Group:          Development/Languages
@@ -85,6 +85,8 @@ Patch15:        %{name}-2.6.8-man.patch
 # This patch was last sent upstream on 30 Oct 2012.  It provides more
 # information when an unknown reloc type is encountered.
 Patch16:        %{name}-2.6.8-reloc-type.patch
+# add missing s390 reloc
+Patch17:        %{name}-2.6.8-s390-reloc.patch
 
 BuildRequires:  libXaw-devel
 BuildRequires:  readline-devel
@@ -186,6 +188,7 @@ gcl_exec_t.
 %patch14
 %patch15
 %patch16
+%patch17 -p1
 
 # Don't let the configure script add compiler flags we don't want
 sed -i -e 's/"-fomit-frame-pointer"/""/' -e 's/-O3/-O2/g' configure
@@ -338,6 +341,10 @@ fi
 
 
 %changelog
+* Wed Jan 23 2013 Dan Horák <dan[at]danny.cz> - 2.6.8-0.14.20130121cvs
+- fix build on s390
+- successful build requires kernel newer than what's in RHEL-6
+
 * Mon Jan 21 2013 Jerry James <loganjerry@gmail.com> - 2.6.8-0.13.20130121cvs
 - Update to 20130121 snapshot, fixes bz 838068
 - Rebuild for bz 886934