Index: openacs-4/packages/ams/ams.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/ams.info,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/ams/ams.info	16 May 2006 06:21:16 -0000	1.23
+++ openacs-4/packages/ams/ams.info	21 Dec 2006 18:09:43 -0000	1.24
@@ -18,7 +18,7 @@
         <provides url="ams" version="1.1d16"/>
         <requires url="acs-lang" version="5.1.5d1"/>
         <requires url="postal-address" version="0.1d"/>
-        <requires url="ref-countries" version="0.1d"/>
+        <requires url="ref-countries" version="1.1"/>
         <requires url="ref-us-states" version="0.1d"/>
         <requires url="ref-us-zipcodes" version="0.1d"/>
         <requires url="telecom-number" version="0.1d"/>
Index: openacs-4/packages/ams/tcl/mobile-number-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/mobile-number-widget-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ams/tcl/mobile-number-widget-procs.tcl	22 Aug 2006 15:33:41 -0000	1.2
+++ openacs-4/packages/ams/tcl/mobile-number-widget-procs.tcl	21 Dec 2006 18:09:43 -0000	1.3
@@ -392,7 +392,7 @@
     }
 
     #To avoid ambiguity, escape the . in a username, then add it to the URI
-    regsub -all . $username %2E username
+    regsub -all {\.} $username {%2E} username
     set uri ${uri}/$username
 
     #If response_type is not an image, append it to the URI
@@ -429,7 +429,8 @@
 	
 	#If char_set is specified append it to the URI
 	if { ![empty_string_p $char_set] } {
-	    string tolower $char_set {
+	    string tolower $char_set
+	    switch $char_set {
 		"utf"   {set char_set "utf8"}
 		"iso"   {set char_set "latin1"}
 		default {set char_set "utf8"}