diff --git a/repository/Seaside-Core.package/WAFileMetadataLibrary.class/class/addFileAt.relativeToRootDirectory..st b/repository/Seaside-Core.package/WAFileMetadataLibrary.class/class/addFileAt.relativeToRootDirectory..st
index 31d749ee2..bbbeab922 100644
--- a/repository/Seaside-Core.package/WAFileMetadataLibrary.class/class/addFileAt.relativeToRootDirectory..st
+++ b/repository/Seaside-Core.package/WAFileMetadataLibrary.class/class/addFileAt.relativeToRootDirectory..st
@@ -6,8 +6,8 @@ addFileAt: aPath relativeToRootDirectory: relativeRootDirectory
 	
 	(relativeFilepath first = pathSeparator first) 
 		ifTrue: [ relativeFilepath := relativeFilepath allButFirst ].
-		
-	relativeFilepath := relativeFilepath replaceAll: pathSeparator first with: $/. 
+
+	relativeFilepath := relativeFilepath copyReplaceAll: pathSeparator with: '/'. 
 
 	self addFileNamed: relativeFilepath
 		contents: (GRPlatform current