diff --git a/itcl-unbreak-iwidgets.patch b/itcl-unbreak-iwidgets.patch
new file mode 100644
index 0000000..2fdf0fd
--- /dev/null
+++ b/itcl-unbreak-iwidgets.patch
@@ -0,0 +1,20 @@
+Index: generic/itclInt.h
+==================================================================
+--- generic/itclInt.h
++++ generic/itclInt.h
+@@ -148,12 +148,12 @@
+     Tcl_HashTable nameClasses;      /* maps from fullNamePtr to iclsPtr */
+     Tcl_HashTable namespaceClasses; /* maps from nsPtr to iclsPtr */
+     Tcl_HashTable procMethods;      /* maps from procPtr to mFunc */
+     Tcl_HashTable instances;        /* maps from instanceNumber to ioPtr */
+     Tcl_HashTable objectInstances;  /* maps from ioPtr to instanceNumber */
+-    Tcl_HashTable unused;           /* used to be myEnsembles. Dummy left in
+-                                     * for binary compatibility with itk */
++//    Tcl_HashTable myEnsembles;      /* maps from ensemble name (::itcl::find)
++//                                     * etc. to ensemble pathName */
+     Tcl_HashTable classTypes;       /* maps from class type i.e. "widget"
+                                      * to define value i.e. ITCL_WIDGET */
+     int protection;                 /* protection level currently in effect */
+     int useOldResolvers;            /* whether to use the "old" style
+                                      * resolvers or the CallFrame resolvers */
+
diff --git a/tcl.changes b/tcl.changes
index c6bcff6..42a35bf 100644
--- a/tcl.changes
+++ b/tcl.changes
@@ -1,3 +1,26 @@
+-------------------------------------------------------------------
+Wed Nov 12 15:54:19 UTC 2014 - max@suse.com
+
+- New version 8.6.3:
+  * (bug)[b9e1a3] Correct Method Search Order
+  * (bug)[ccc2c2] Regression [lreplace {} 1 1]
+  * <oo-1.18.2> Crash regression in [oo::class destroy]
+  * (bug)[84af11] Regress [regsub -all {\(.*} a(b) {}]
+  * (bug)[cee90e] [try {} on ok {} - on return {} {}] panic
+  * (feature) [tcl::unsupported::getbytecode] disassember
+  * (enhancement) [string cat] bytecode optimization
+  * (bug)[82521b] segfault in mangled bytecode
+  * (bug)[bc5b79] Hang in some [read]s of limited size
+  * (bug)[bc1a96] segfault in [array set] of traced array
+  * (bug)[59a2e7] MSVC14 compile support
+  * (bug)[ed29c4] [fcopy] treats [blocked] as error
+  * (bug)[bf7135] regression in Tcl_Write() interface
+  * (bug)[10dc6d] fix [gets] on non-blocking channels
+  * (bug)[214cc0] Restore [lappend v] return value
+  * (bug)[5adc35] Stop forcing EOF to be permanent
+- Add itcl-unbreak-iwidgets.patch to revert a recent change in
+  itcl that broke iwidgets.
+
 -------------------------------------------------------------------
 Sat Sep  6 10:23:13 UTC 2014 - coolo@suse.de
 
diff --git a/tcl.spec b/tcl.spec
index eb649ac..f700de4 100644
--- a/tcl.spec
+++ b/tcl.spec
@@ -18,7 +18,7 @@
 
 Name:           tcl
 Url:            http://www.tcl.tk
-Version:        8.6.2
+Version:        8.6.3
 Release:        0
 %define         rrc %{nil}
 %define TCL_MINOR %(echo %version | cut -c1-3)
@@ -33,13 +33,14 @@ Obsoletes:      tcl-64bit
 #
 Provides:       tclsh
 Provides:       tclsh%{TCL_MINOR}
-Obsoletes:      itcl < 4.0.0
-Provides:       itcl = 4.0.0
+Obsoletes:      itcl < 4.0.2
+Provides:       itcl = 4.0.2
 PreReq:         /bin/rm
 Source0:        ftp://ftp.tcl.tk/pub/tcl/tcl8_6/%{name}%{version}%{rrc}-src.tar.gz
 Source1:        tcl-rpmlintrc
 Source2:        baselibs.conf
 Source3:        macros.tcl
+Patch1:         itcl-unbreak-iwidgets.patch
 BuildRequires:  autoconf
 BuildRequires:  pkg-config
 # Required for test suite:
@@ -64,8 +65,8 @@ Requires:       tcl = %version
 %ifarch ppc64
 Obsoletes:      tcl-devel-64bit
 %endif
-Obsoletes:      itcl-devel < 4.0.0
-Provides:       itcl-devel = 4.0.0
+Obsoletes:      itcl-devel < 4.0.2
+Provides:       itcl-devel = 4.0.2
 #
 
 %description devel
@@ -78,6 +79,9 @@ the Tcl language itself.
 
 %prep
 %setup -q -n %name%version
+pushd pkgs/itcl*
+%patch1 -R
+popd
 
 %build
 cd unix
diff --git a/tcl8.6.2-src.tar.gz b/tcl8.6.2-src.tar.gz
deleted file mode 100644
index 57f7c06..0000000
--- a/tcl8.6.2-src.tar.gz
+++ /dev/null
@@ -1,3 +0,0 @@
-version https://git-lfs.github.com/spec/v1
-oid sha256:86f7ae5f581dd0904d04415637ab3aef5a50986c1b6d04c340e2b1b0258da9c4
-size 8857161
diff --git a/tcl8.6.3-src.tar.gz b/tcl8.6.3-src.tar.gz
new file mode 100644
index 0000000..a747a4c
--- /dev/null
+++ b/tcl8.6.3-src.tar.gz
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:6ce0778de0d50daaa9c345d7c1fd1288fb658f674028812e7eeee992e3051005
+size 8901509