Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.39 -r1.40
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	6 May 2007 06:58:40 -0000	1.39
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	16 May 2007 23:30:16 -0000	1.40
@@ -253,9 +253,7 @@
 	# if necessary, until we find a unique name
 	set instance_name $package_key
 	while { [subsite::instance_name_exists_p $node_id $instance_name] } {
-	    set instance_name "$package_key $ctr"
-	    # Convert spaces to dashes
-	    regsub -all { } $instance_name "-" instance_name
+	    set instance_name "$package_key-$ctr"
 	    incr ctr
 	}
     }