diff --git a/gettext-fix-tcl-u-escape-sequences.patch b/gettext-fix-tcl-u-escape-sequences.patch
new file mode 100644
index 0000000..8c87c48
--- /dev/null
+++ b/gettext-fix-tcl-u-escape-sequences.patch
@@ -0,0 +1,24 @@
+Index: gettext-0.18.2.1/gettext-tools/src/x-tcl.c
+===================================================================
+--- gettext-0.18.2.1.orig/gettext-tools/src/x-tcl.c
++++ gettext-0.18.2.1/gettext-tools/src/x-tcl.c
+@@ -517,7 +517,10 @@ do_getc_escaped ()
+           {
+             c = phase1_getc ();
+             if (c == EOF || !c_isxdigit ((unsigned char) c))
+-              break;
++              {
++                phase1_ungetc (c);
++                break;
++              }
+ 
+             if (c >= '0' && c <= '9')
+               n = (n << 4) + (c - '0');
+@@ -526,7 +529,6 @@ do_getc_escaped ()
+             else if (c >= 'a' && c <= 'f')
+               n = (n << 4) + (c - 'a' + 10);
+           }
+-        phase1_ungetc (c);
+         return (i > 0 ? n : 'u');
+       }
+     case '0': case '1': case '2': case '3': case '4':
diff --git a/gettext-runtime-mini.changes b/gettext-runtime-mini.changes
index 6bbf2f2..ebb2bd2 100644
--- a/gettext-runtime-mini.changes
+++ b/gettext-runtime-mini.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Tue Jun 25 09:09:00 UTC 2013 - gber@opensuse.org
+
+- add gettext-fix-tcl-u-escape-sequences.patch in order to fix
+  the handling of Tcl \u escape sequences (bnc#826422)
+
 -------------------------------------------------------------------
 Wed Jun 19 08:12:19 UTC 2013 - coolo@suse.com
 
diff --git a/gettext-runtime-mini.spec b/gettext-runtime-mini.spec
index 00c1531..d0fef3e 100644
--- a/gettext-runtime-mini.spec
+++ b/gettext-runtime-mini.spec
@@ -63,6 +63,7 @@ Patch4:         gettext-po-mode.diff
 Patch5:         gettext-initialize_vars.patch
 Patch9:         gettext-needlessly_init_vars.patch
 Patch10:        gettext-configure.patch
+Patch11:        gettext-fix-tcl-u-escape-sequences.patch
 
 %description
 This package contains the intl library as well as tools that ease the
@@ -109,6 +110,7 @@ binary catalogs.
 %patch5
 %patch9
 %patch10 -p1
+%patch11 -p1
 
 %build
 # expect a couple "You should update your `aclocal.m4' by running aclocal."
diff --git a/gettext-runtime.changes b/gettext-runtime.changes
index 6bbf2f2..ebb2bd2 100644
--- a/gettext-runtime.changes
+++ b/gettext-runtime.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Tue Jun 25 09:09:00 UTC 2013 - gber@opensuse.org
+
+- add gettext-fix-tcl-u-escape-sequences.patch in order to fix
+  the handling of Tcl \u escape sequences (bnc#826422)
+
 -------------------------------------------------------------------
 Wed Jun 19 08:12:19 UTC 2013 - coolo@suse.com
 
diff --git a/gettext-runtime.spec b/gettext-runtime.spec
index 84e0990..c4755dc 100644
--- a/gettext-runtime.spec
+++ b/gettext-runtime.spec
@@ -63,6 +63,7 @@ Patch4:         gettext-po-mode.diff
 Patch5:         gettext-initialize_vars.patch
 Patch9:         gettext-needlessly_init_vars.patch
 Patch10:        gettext-configure.patch
+Patch11:        gettext-fix-tcl-u-escape-sequences.patch
 
 %description
 This package contains the intl library as well as tools that ease the
@@ -109,6 +110,7 @@ binary catalogs.
 %patch5
 %patch9
 %patch10 -p1
+%patch11 -p1
 
 %build
 # expect a couple "You should update your `aclocal.m4' by running aclocal."