Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/install-procs.tcl	9 Feb 2005 15:21:01 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl	22 Feb 2005 18:18:17 -0000	1.10
@@ -166,6 +166,9 @@
 
     set out [list]
 
+    # Remove double slashes
+    regsub -all {//} $mount_point "/" mount_point
+
     if {[string is space $mount_point] ||
         [string equal $mount_point "/"]} {
         array set site_node [site_node::get -url "/"]
@@ -247,6 +250,9 @@
 
     set out [list]
 
+    # Remove double slashes
+    regsub -all {//} $mount_point "/" mount_point
+
     if {[string is space $mount_point] ||
         [string equal $mount_point "/"]} {
         array set site_node [site_node::get -url "/"]
@@ -480,6 +486,9 @@
     set package_key [apm_attribute_value -default "" $node package-key]
     set url [apm_attribute_value -default "" $node url]
 
+    # Remove double slashes
+    regsub -all {//} $url "/" url
+
     if { ![string equal $package_key ""] && ![string equal $url ""] } {
         error "set-parameter: Can't specify both package and url for $url and $package_key"