Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Aug 2008 12:33:42 -0000	1.34
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Oct 2008 18:12:22 -0000	1.35
@@ -223,6 +223,15 @@
     }
   }
 
+  proc render_localizer {} {
+    if {[my exists __localizer]} {
+      foreach l [my set __localizer] {
+	$l render
+	$l destroy
+      }
+    }
+  }
+
   Class Localizer -parameter {type key url}
 
   Localizer instproc render {} {
@@ -238,8 +247,8 @@
   Localizer instproc render {} {
      html::a -title [my key] -href [my url] {
        set path /resources/acs-templating/xinha-nightly/plugins/
-       switch [my type] {
- 	localized {set img ImageManager/img/btn_ok.gif}
+       switch -- [my type] {
+	 localized {set img ImageManager/img/btn_ok.gif}
          us_only  {set img Filter/img/ed_filter.gif}
          missing  {set img LangMarks/img/en.gif}
        }