Index: lib/xvfs/xvfs.tcl
==================================================================
--- lib/xvfs/xvfs.tcl
+++ lib/xvfs/xvfs.tcl
@@ -164,11 +164,11 @@
 
 		set inputFile [file join $workingDirectory $file]
 		set outputFile [file join $outputDirectory [encoding convertto utf-8 $file]]
 
 		if {[info command ::xvfs::callback::setOutputFileName] ne ""} {
-			set outputFile [::xvfs::callback::setOutputFileName $workingDirectory $inputFile $outputDirectory $outputFile]
+			set outputFile [::xvfs::callback::setOutputFileName $file $workingDirectory $inputFile $outputDirectory $outputFile]
 			if {$outputFile eq ""} {
 				continue
 			}
 		}