--- a/CVSSourceCodeManager.st	Wed Jun 26 10:24:42 2013 +0200
+++ b/CVSSourceCodeManager.st	Wed Jun 26 10:35:26 2013 +0200
@@ -781,7 +781,7 @@
      given file there.
      Return the name of a temporary directory containing the package, or nil"
 
-    |path absolutePath tempdir workingDir unixPath|
+    |path absolutePath tempdir unixPath|
 
     path := (moduleDir asFilename construct:packageDir) construct:fileToCheckout.
 
@@ -960,7 +960,7 @@
 
 executeCVSCommand:cvsCommand module:moduleName inDirectory:dirArg log:doLog pipe:doPipe orElseOutputTo:outStreamOrNil errorTo:errorStreamOrNil
     "execute command and prepend cvs command name and global options.
-     execute command in the dirArg directory.
+     execute command in the dirArg directory (or the current directory if dirArg is nil).
      The doLog argument, if false supresses a logEntry to be added
      in the cvs log file (used when reading / extracting history)"
     
@@ -1433,10 +1433,8 @@
 
 isResponsibleForPackage:aString
 
-    | id |
-
     "JV@2011-07-09: The real check is too slow. Cache needed here"
-    ^true.
+    ^ true.
 
 "/    id := aString asPackageId. 
 "/    ^self checkForExistingModule: id module directory: id directory.
@@ -4750,9 +4748,10 @@
 
     |tempDir modulePath inStream info|
 
+    tempDir := nil.         "use the current directory"
+
     self use_rlog ifFalse:[
          "/ Uses 'cvs status' - rlog seems not to work
-
         ^ nil.
     ].
 
@@ -4812,9 +4811,9 @@
 
     |tempDir modulePath inStream info|
 
+    tempDir := nil.         "use the current directory"
     self use_rlog ifFalse:[
          "/ Uses 'cvs status' - rlog seems not to work
-
         ^ nil.
     ].
 
@@ -5191,11 +5190,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.464 2013-06-25 17:13:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.465 2013-06-26 08:35:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.464 2013-06-25 17:13:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.465 2013-06-26 08:35:26 stefan Exp $'
 ! !