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.36 -r1.37
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	10 Jan 2007 21:22:06 -0000	1.36
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	16 Jan 2007 23:18:35 -0000	1.37
@@ -254,10 +254,10 @@
 	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
 	    incr ctr
 	}
-	# Convert spaces to dashes
-	regsub -all { } $instance_name "-" instance_name
     }
 
     if { $pretty_name eq "" } {