--- a/CVSSourceCodeManager.st	Sun Sep 23 04:18:46 2018 +0200
+++ b/CVSSourceCodeManager.st	Thu Sep 27 10:05:09 2018 +0200
@@ -1183,10 +1183,12 @@
     [inStream atEnd] whileFalse:[
         line:= inStream nextLine.
         line notNil ifTrue:[
+            Transcript showCR:line.
             line := line withoutSeparators.
             line notEmpty ifTrue:[
                 s := line restAfter:'RCS file:' withoutSeparators:true.
                 s notNil ifTrue:[
+                    revisionUsed := nil.
                     (UnixFilename named:s) directory baseName = 'Attic' ifTrue:[
                         "/ file has been removed in the repository
                         revisionUsed := #deleted
@@ -1198,20 +1200,25 @@
                         self halt:'oops - should not happen'.
                     ].
                 ].
-                s := line restAfter:searchFor withoutSeparators:true.
-                s notNil ifTrue:[ |i|
-                    i := s indexOfSeparator.
-                    i ~~ 0 ifTrue:[
-                        s := s copyTo:i-1
+                "/ only the very first encountered revision is remembered/reported
+                revisionUsed isNil ifTrue:[ 
+                    s := line restAfter:searchFor withoutSeparators:true.
+                    s notNil ifTrue:[ |i|
+                        i := s indexOfSeparator.
+                        i ~~ 0 ifTrue:[
+                            s := s copyTo:i-1
+                        ].
+                        revisionUsed := revisionUsed ? s.  "/ deleted-info comes from the Attic-component in the path
+                        info add:(fileName -> revisionUsed).
+                        fileName := nil.
                     ].
-                    revisionUsed := revisionUsed ? s.  "/ deleted-info comes from the Attic-component in the path
-                    info add:(fileName -> revisionUsed).
-                    fileName := revisionUsed := nil.
                 ].
             ].
         ]
     ].
     ^ info
+
+    "Modified: / 27-09-2018 / 10:04:07 / Claus Gittinger"
 !
 
 fetchRevisionsFromRLogStream:inStream searchForKeyword:searchFor ignoreDeleted:ignoreDeleted