Index: openacs-4/packages/imsld/www/imsld-content-serve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/imsld-content-serve.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/imsld/www/imsld-content-serve.tcl	16 Oct 2006 16:32:52 -0000	1.14
+++ openacs-4/packages/imsld/www/imsld-content-serve.tcl	17 Oct 2006 10:22:26 -0000	1.15
@@ -300,7 +300,7 @@
     $form_node setAttribute name "set-properties"
     set url_prefix [ns_conn url]
     regexp (.*)/ $url_prefix url_prefix
-    $form_node setAttribute action "${url_prefix}/properties-value-set"
+    $form_node setAttribute action "${url_prefix}properties-value-set"
     $form_node setAttribute method "get"
     if { [string eq $view "title-value"] } {
         $form_node appendChild [$dom_doc createTextNode "$title"] 
@@ -565,7 +565,9 @@
 set head_node [$dom_root selectNodes {//*[local-name()='head']}]
 if {![llength [$head_node selectNodes {/*[local-name()='base']}]]} {
     set base_node [$dom_doc createElement "base"]
-    $base_node setAttribute href [ns_conn location]$file_url/
+    set base_prefix [ns_conn url]
+    regexp (.*)/ $base_prefix base_prefix
+    $base_node setAttribute href "$base_prefix/$file_url/"
     $head_node appendChild $base_node
 }