--- a/contrib/hgk	Mon Feb 04 23:41:11 2013 +0100
+++ b/contrib/hgk	Tue Feb 05 12:58:21 2013 +0100
@@ -109,7 +109,12 @@
 # end of win32 section
 } else {
 
-if {[ttk::style theme use] eq "default"} {
+if {[catch {
+    set theme [ttk::style theme use]
+}]} {
+    set theme $::ttk::currentTheme
+}
+if {$theme eq "default"} {
     ttk::style theme use clam
 }