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"}