This should fix it:

---
+++
@@ -10,6 +10,8 @@

 namespace eval ::tk::fontchooser {
     variable S
+    variable font
+    variable style

     set S(W) .__tk__fontchooser
     set S(fonts) [lsort -dictionary [font families]]