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.38 -r1.39
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	12 May 2002 18:19:53 -0000	1.38
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	12 May 2002 20:51:52 -0000	1.39
@@ -42,13 +42,12 @@
     } {
         Generate a key from a name. Compresses all adjacent non-alphanum
         chars to a dash. Yes, this is not unique, grows rapidly, will
-        need collision detection and resolution, yada yada. 
+        need collision detection and resolution, yada yada.
     } {
-        
-        regsub -all {\W+} [string tolower $name] "-" name
+        regsub -all {\W+} $name "-" name
         regsub -all -- {-+} $name "-" name
-        
-        return "[string trim $name {-}]"
+
+        return [string tolower [string trim $name {-}]]
     }
 
     ad_proc -private do_abort {} {
@@ -104,7 +103,7 @@
         ns_set put $extra_vars id $id
 
         set template_id \
-                [dotlrn_community::get_type_portal_id -community_type "user_workspace"] 
+                [dotlrn_community::get_type_portal_id -community_type "user_workspace"]
         db_transaction {
             set portal_id [portal::create \
                 -template_id $template_id \
@@ -114,7 +113,7 @@
 
             ns_set put $extra_vars portal_id $portal_id
 
-            # Add the relation (no need to feed in anything for object_id_one, 
+            # Add the relation (no need to feed in anything for object_id_one,
             # or two for that matter).
             set rel_id [relation_add \
                 -extra_vars $extra_vars \
@@ -126,7 +125,7 @@
 
             # add the "dotlrn main" portlet to the user's workspace
             dotlrn_main_portlet::add_self_to_page -portal_id $portal_id
-                
+
             dotlrn_community::applets_dispatch -op AddUser -list_args [list $user_id]
 
             # if the user is a member of communities (from some previous