--- C:\strawberry-perl\perl\site\lib\Tk\FBox.pm	Sa Feb 10 11:29:00 2007
+++ C:\strawberry-perl\perl\site\lib\Tk\FBox-new.pm	So Sep  6 11:39:02 2009
@@ -906,7 +906,7 @@
 	if ($w->cget('-multiple')) {
 	    $selectFilePath = [];
 	    for my $f (@{ $w->{'selectFile'} }) {
-		push @$selectFilePath, JoinFile($w->_get_select_Path, $f);
+		push @$selectFilePath, JoinFile($w->_get_select_path, $f);
 	    }
 	} else {
 	    $selectFilePath = JoinFile($w->_get_select_path,