From a39ebf5588bbb53d91dec0328eba7effd4d0a7a5 Mon Sep 17 00:00:00 2001
From: Philippe Marschall <philippe.marschall@gmail.com>
Date: Tue, 23 Aug 2022 11:33:55 +0200
Subject: [PATCH] Fix WAVersionUploader

---
 .../WAVersionUploader.class/instance/newVersion..st           | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/repository/Seaside-Pharo-Tools-Web.package/WAVersionUploader.class/instance/newVersion..st b/repository/Seaside-Pharo-Tools-Web.package/WAVersionUploader.class/instance/newVersion..st
index 4bdfe2a38..48c74f974 100644
--- a/repository/Seaside-Pharo-Tools-Web.package/WAVersionUploader.class/instance/newVersion..st
+++ b/repository/Seaside-Pharo-Tools-Web.package/WAVersionUploader.class/instance/newVersion..st
@@ -1,10 +1,10 @@
 actions
 newVersion: aWorkingCopy
 	| version stream |
-	version := [ aWorkingCopy newVersion ]
+	version := [ aWorkingCopy newVersionIn: aWorkingCopy repositoryGroup ]
 		on: MCVersionNameAndMessageRequest
 		do: [ :request | request resume: (Array with: request suggestedName with: '') ].
-	stream := RWBinaryOrTextStream on: String new.
+	stream := GRPlatform current readWriteByteStream.
 	version fileOutOn: stream.
 	self requestContext respond: [ :response |
 		response