Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Feb 2005 15:51:07 -0000	1.27
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	18 Feb 2005 16:33:37 -0000	1.28
@@ -672,9 +672,7 @@
 		    set matmediaNodes [$response_label selectNodes {material/matimage[@uri]}]
 		    set as_item_choices__content_value [db_null]
 		    foreach matmedia $matmediaNodes {
-			set mediabasepath $basepath
-			append mediabasepath {/}
-			append mediabasepath [$matmedia getAttribute {uri}]
+			set mediabasepath [file join $basepath [$matmedia getAttribute {uri}]]
 			# insert as_file in the CR (and in the as_file table) getting the content value
 			set as_item_choices__content_value [as::file::new -file_pathname $mediabasepath]
 		    }
@@ -701,9 +699,7 @@
 	    #import an image as title of item
 	    set matmediaNodes [$presentation selectNodes {material/matimage[@uri]}]
 		if {[llength $matmediaNodes]>0} {  				    
-		    set mediabasepath $basepath
-		    append mediabasepath {/}
-		    append mediabasepath [$matmediaNodes getAttribute {uri}]
+		    set mediabasepath [file join $basepath [$matmediaNodes getAttribute {uri}]]
 		    # insert as_file in the CR (and in the as_file table) getting the content value
 		    set as_item_choices__content_value [as::file::new -file_pathname $mediabasepath]
 		    as::item_rels::new -item_rev_id $as_item_id -target_rev_id $as_item_choices__content_value -type as_item_content_rel