--- a/MCSMReleaseRepository.st	Sat Mar 01 10:40:15 2014 +0100
+++ b/MCSMReleaseRepository.st	Sat Mar 01 23:43:05 2014 +0100
@@ -63,16 +63,16 @@
 !
 
 uploadVersion: aVersion
-	| result stream |
-	result := HTTPSocket
-		httpPut: (self stringForVersion: aVersion)
-		to: self squeakMapUrl, '/upload/', aVersion fileName
-		user: user
-		passwd: password.
-	self checkResult: result.
-	stream := result readStream.
-	stream upToAll: 'http://'.
-	^ 'http://', stream upToEnd
+        | result stream |
+        result := HTTPSocket
+                httpPut: (self stringForVersion: aVersion)
+                to: self squeakMapUrl, '/upload/', aVersion fileName
+                user: user
+                passwd: password.
+        self checkResult: result.
+        stream := result readStream.
+        stream skipThroughAll: 'http://'.
+        ^ 'http://', stream upToEnd
 ! !
 
 !MCSMReleaseRepository methodsFor:'initialization'!
@@ -104,14 +104,14 @@
 !MCSMReleaseRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.6 2014-03-01 22:43:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMReleaseRepository.st,v 1.6 2014-03-01 22:43:05 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCSMReleaseRepository.st,v 1.5 2014-02-12 14:53:30 cg Exp $'
+    ^ '$Id: MCSMReleaseRepository.st,v 1.6 2014-03-01 22:43:05 cg Exp $'
 ! !