diff --git a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTest.st b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTest.st
index e8f7caa7b..79e083d62 100644
--- a/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTest.st
+++ b/repository/Seaside-Tests-Parasol.package/WAWebDriverFunctionalTestCase.class/instance/testUploadFunctionalTest.st
@@ -1,16 +1,16 @@
 testing
 testUploadFunctionalTest
 
-	| file |
+	| filePathString |
 	self selectTest: 'WAUploadFunctionalTest'.
 
-	file := GRPlatform current newTemporaryFileReferenceNamed: 'testfile.txt'.
+	filePathString := GRPlatform current newTemporaryFileNamed: 'testfile.txt'.
 	GRPlatform current
-		writeFileStreamOn: file pathString
+		writeFileStreamOn: filePathString
 		do: [ :stream | stream nextPutAll: 'blabla' ]
 		binary: false.
 
-	(driver findElementByCSSSelector: 'input[type=file]') sendKeys: file pathString.
+	(driver findElementByCSSSelector: 'input[type=file]') sendKeys: filePathString.
 	(driver findElementByCSSSelector: 'input[value=Load]') click.
 
 	self assert: (driver findElementByCSSSelector: 'pre') getText equals: 'blabla'
\ No newline at end of file
diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st
index 5e5fa8aa6..762c058e9 100644
--- a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st
+++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st
@@ -1,10 +1,10 @@
 private
 parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock
-	| fullBoundary file |
+	| fullBoundary filePathString |
 	fullBoundary := String crlf asByteArray, aBoundary.
-	file := GRPlatform current newTemporaryFileReference.
+	filePathString := GRPlatform current newTemporaryFile.
 	GRPlatform current
-		writeFileStreamOn: file pathString
+		writeFileStreamOn: filePathString
 		do: [ :writer |
 			self
 				parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary
@@ -13,4 +13,4 @@ parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: a
 	
 	aBlock
 		value: aMimePart
-		value: file pathString
\ No newline at end of file
+		value: filePathString
\ No newline at end of file