--- a/CVSSourceCodeManager.st	Wed May 15 14:07:31 2019 +0200
+++ b/CVSSourceCodeManager.st	Wed May 15 14:19:15 2019 +0200
@@ -4716,7 +4716,7 @@
 
 revisionLogOf:clsOrNil
     fromRevision:firstRevOrNil toRevision:lastRevOrNil numberOfRevisions:numRevisionsOrNil
-    fileName:classFileName directory:packageDir module:moduleDir
+    fileName:classFileName directory:packageDirOrNil module:moduleDir
 
     "return info about the repository container and
      (part of) the revisionlog as a collection of revision entries.
@@ -4771,10 +4771,10 @@
     [
         |cmd revArg|
 
-        packageDir isEmptyOrNil ifTrue:[
+        packageDirOrNil isEmptyOrNil ifTrue:[
             modulePath := moduleDir
         ] ifFalse:[
-            modulePath :=  moduleDir , '/' , packageDir.
+            modulePath :=  moduleDir , '/' , packageDirOrNil.
         ].
         classFileName isNil ifTrue:[
             fullName :=  modulePath , '/' , (clsOrNil classFilename).