Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.181 -r1.182
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Oct 2003 22:21:39 -0000	1.181
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Oct 2003 22:31:52 -0000	1.182
@@ -177,9 +177,7 @@
     } {
 
         if {[empty_string_p $community_key]} {
-            # LARS 2003-10-21: Should be replaced with a direct call to util_text_to_url
-            # which resolves conflicts with existing community-keys
-            set community_key [dotlrn::generate_key -name $pretty_name]
+            set community_key [dotlrn_community::generate_key -name $pretty_name]
         }
 
         check_community_key_valid_p \