Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -r1.49.2.2 -r1.49.2.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	18 Oct 2002 21:25:32 -0000	1.49.2.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	20 Mar 2003 10:30:29 -0000	1.49.2.3
@@ -40,6 +40,9 @@
         regsub -all -- {-+} $name "-" name
         set name [string tolower [string trim $name {-}]]
 
+        # Remove non-US ASCII characters
+        set name [util_text_to_url -replacement {} $name]
+
         if {$increment_p} {
             # increment the key by checking if the last 2 chars are -int
             # if so, incr the int. if not add "-1" to the key