diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/version.st b/repository/Grease-Core.package/GRPlatform.class/instance/version.st
index b8628c03..c721c9a6 100644
--- a/repository/Grease-Core.package/GRPlatform.class/instance/version.st
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/version.st
@@ -2,5 +2,5 @@ version info
 version
 	"Answer the Grease version"
 
-	^ (GRVersion major: 1 minor: 7 revision: 3)
+	^ (GRVersion major: 1 minor: 7 revision: 5)
 		yourself
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
index 3ba20dce..f5f8c691 100644
--- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
 file-library
 fileExists: aString
-	^ (FileDirectory forFileName: aString) exists
\ No newline at end of file
+	^ GsFile existsOnServer: aString
\ No newline at end of file
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st
new file mode 100644
index 00000000..5d7796bc
--- /dev/null
+++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st
@@ -0,0 +1,9 @@
+tests-filestreams
+testFileExists
+	| theFileName |
+	self 
+		writeToFile: 'test' 
+		withFileNameDo:[ :fileName |
+			self assert: (GRPlatform current fileExists: fileName).
+			theFileName := fileName ].
+	self deny: (GRPlatform current fileExists: theFileName)
\ No newline at end of file