Index: openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl	13 May 2010 09:24:34 -0000	1.3
+++ openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl	13 May 2010 10:11:23 -0000	1.4
@@ -16,7 +16,7 @@
     
     set country_code [db_string get_country_code "select iso from countries where default_name = upper(:country)" -default ""]
 
-    if {[string eq "" $country_code]} {
+    if { $country_code eq "" } {
         
         # Lets try to be smart.
         set country_list [list \