--- a/MCHttpRepository.st	Mon Aug 27 03:34:17 2018 +0000
+++ b/MCHttpRepository.st	Mon Aug 27 09:38:31 2018 +0200
@@ -451,12 +451,16 @@
 !
 
 versionReaderForFileNamed: aString do: aBlock
+    | r fileName|
 
-    | r |
-
-    ^(r := self versionReaderForFileNamed: aString) ifNotNil: [aBlock value: r]
+    fileName := aString.
+    (aString endsWith:'.mcz') ifFalse:[
+        fileName := aString,'.mcz'
+    ].    
+    ^(r := self versionReaderForFileNamed: fileName) ifNotNil: [aBlock value: r]
 
     "Modified: / 14-09-2010 / 19:39:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-08-2018 / 09:35:18 / Claus Gittinger"
 ! !
 
 !MCHttpRepository methodsFor:'required'!
@@ -500,7 +504,7 @@
         ].
 
     "Modified: / 14-09-2010 / 19:38:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 26-08-2018 / 14:17:03 / Claus Gittinger"
+    "Modified: / 27-08-2018 / 09:34:25 / Claus Gittinger"
 !
 
 writeStreamForFileNamed: aString replace: ignoreBoolean do: aBlock