Index: library/palette.tcl
==================================================================
--- library/palette.tcl
+++ library/palette.tcl
@@ -151,10 +151,14 @@
 
     # Save the options in the variable ::tk::Palette, for use the
     # next time we change the options.
 
     array set ::tk::Palette [array get new]
+
+    if {[tk windowingsystem] ne "x11" || [ttk::style theme use] ne "default"} {
+	return
+    }
 
     # Update the 'default' ttk theme with the new palette,
     # and then set 'default' as the current ttk theme,
     # in order to apply the new palette to the ttk widgets.