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.17 -r1.18
--- openacs-4/packages/imsld/www/imsld-content-serve.tcl	3 Nov 2006 14:39:03 -0000	1.17
+++ openacs-4/packages/imsld/www/imsld-content-serve.tcl	19 Dec 2006 10:35:20 -0000	1.18
@@ -717,8 +717,7 @@
 set head_node [$dom_root selectNodes {//*[local-name()='head']}]
 if {![llength [$head_node selectNodes {/*[local-name()='base']}]]} {
     set base_node [$dom_doc createElement "base"]
-    set base_prefix [ns_conn url]
-    regexp (.*)/ $base_prefix base_prefix
+    set base_prefix [ns_conn location]
     $base_node setAttribute href "$base_prefix/$file_url/"
     $head_node appendChild $base_node
 }