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.2 -r1.3
--- openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl	1 Jan 2007 12:13:17 -0000	1.2
+++ openacs-4/packages/ref-countries/tcl/ref-countries-procs.tcl	13 May 2010 09:24:34 -0000	1.3
@@ -17,9 +17,9 @@
     set country_code [db_string get_country_code "select iso from countries where default_name = upper(:country)" -default ""]
 
     if {[string eq "" $country_code]} {
-	
-	# Lets try to be smart.
-	set country_list [list \
+        
+        # Lets try to be smart.
+        set country_list [list \
                               [list England GB] \
                               [list "Great Britain" GB] \
                               [list Korea KR] \
@@ -33,10 +33,10 @@
 
         template::util::list_of_lists_to_array $country_list countries
 
-	if {[exists_and_not_null countries($country)]} {
-	    set country_code $countries($country)
-	}
+        if {[exists_and_not_null countries($country)]} {
+            set country_code $countries($country)
+        }
     }
     
     return $country_code
-}
\ No newline at end of file
+}