diff --git a/tcl/start.tcl b/tcl/start.tcl
index dcb07d4d..7f629373 100644
--- a/tcl/start.tcl
+++ b/tcl/start.tcl
@@ -519,10 +519,10 @@ proc configure_style {} {
     option add [lindex $elem 1] [lindex $elem 2]
   }
 }
-bind . <<ThemeChanged>> { if {"%W" eq "."} { configure_style } }
-
 catch { ttk::style theme use $::lookTheme }
 configure_menus
+configure_style
+bind . <<ThemeChanged>> { if {"%W" eq "."} { configure_style } }
 
 
 # Uses the circle and full circle unicode characters to simulate a switch button.