MCMczReader.st
changeset 1028 56fccc9a0176
parent 913 224fedf76aa7
--- a/MCMczReader.st	Wed Mar 07 16:05:59 2018 +0100
+++ b/MCMczReader.st	Wed Mar 07 16:06:26 2018 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 MCVersionReader subclass:#MCMczReader
 	instanceVariableNames:'zip infoCache'
 	classVariableNames:''
@@ -137,9 +141,10 @@
 !
 
 parseMember: fileName
-	| tokens |
-	tokens := (self scanner scanTokens: (self zip contentsOf: fileName)) first.
-	^ self associate: tokens
+        | tokens data |
+        data := self zip contentsOf: fileName.
+        tokens := (self scanner scanTokens: data) first.
+        ^ self associate: tokens
 !
 
 scanner
@@ -158,14 +163,14 @@
 !MCMczReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: MCMczReader.st,v 1.8 2014-02-12 17:30:06 cg Exp $'
+    ^ '$Id$'
 ! !