Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	14 Dec 2001 03:12:00 -0000	1.86
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	11 Jan 2002 22:14:27 -0000	1.87
@@ -815,7 +815,8 @@
 
 	# apply the path hack to the filename and the resourcedir
 	set element(filename) "[www_path]/$element(filename)"
-	set element(resource_dir) "[mount_point]/$element(resource_dir)"
+        # notice no "/" after mount point
+	set element(resource_dir) "[mount_point]$element(resource_dir)"
 
 	return [array get element]
     }