Index: openacs-4/packages/contacts/tcl/address-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/Attic/address-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/contacts/tcl/address-procs.tcl	22 Aug 2004 22:43:44 -0000	1.1.2.3
+++ openacs-4/packages/contacts/tcl/address-procs.tcl	23 Aug 2004 01:32:32 -0000	1.1.2.4
@@ -68,7 +68,9 @@
     set country_code     [lindex $address_list 4]
 
     if { $country_code == "US" } {
-        if { ![db_0or1row validate_state {} ] } {
+        if { ![db_0or1row validate_state {
+        select 1 from us_states where abbrev = upper(:region) or state_name = upper(:region)
+} ] } {
             set message "\"$region\" is not a valid US State."
             return 0
         }