Index: openacs-4/packages/ams/tcl/address-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl	21 May 2005 17:49:23 -0000	1.4
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl	21 May 2005 21:50:16 -0000	1.5
@@ -268,7 +268,7 @@
         }
         if { $country_code == "CA" && [string length $postal_code] == "6" } {
             set postal_list [split $postal_code {}]
-            set postal_code_temp "[lrange $postal_list 0 2] [lrange $postal_list 3 5]"
+            set postal_code_temp [string toupper "[join [lrange $postal_list 0 2] {}] [join [lrange $postal_list 3 5] {}]"]
             if { [regexp {^([A-Z][0-9][A-Z] [0-9][A-Z][0-9])$} $postal_code_temp] } {
                 set postal_code $postal_code_temp
             }