--- a/CVSSourceCodeManager.st	Sun Jul 01 00:49:14 2018 +0200
+++ b/CVSSourceCodeManager.st	Mon Jul 02 14:58:32 2018 +0200
@@ -2867,6 +2867,25 @@
      Afterwards, the tempDir is removed.
      Return true, if OK, false if any error occurred."
 
+    ^ self 
+        checkoutModule:aModule directory:aPackage 
+        withTag:nil orTimestamp:nil 
+        andDo:aBlock
+
+    "Created: / 23-08-2006 / 14:07:05 / cg"
+    "Modified: / 06-03-2012 / 11:57:52 / cg"
+    "Modified: / 02-07-2018 / 12:40:56 / Claus Gittinger"
+!
+
+checkoutModule:aModule directory:aPackage withTag:tagOrNil orTimestamp:timestampOrNil andDo:aBlock
+    "check out everything from a package into a temporary directory.
+     If tagOrNil isNonNil, get the versions with that tag;
+     if timestampOrNil isNOnNil, get the version at that date;
+     otherwise, checkout the head.
+     Then evaluate aBlock, passing the name of that temp-directory.
+     Afterwards, the tempDir is removed.
+     Return true, if OK, false if any error occurred."
+
     |cvsRoot packageDir tempdir cmdOut cmd dirName rslt|
 
     cvsRoot := self getCVSROOTForModule:aModule.
@@ -2911,8 +2930,7 @@
     ].
     ^ true
 
-    "Created: / 23-08-2006 / 14:07:05 / cg"
-    "Modified: / 06-03-2012 / 11:57:52 / cg"
+    "Created: / 02-07-2018 / 12:40:29 / Claus Gittinger"
 !
 
 getSourceStreamFor:aClass revision:aRevisionStringOrNil
@@ -2940,6 +2958,9 @@
      checkoutName checkoutNameLocal fullTempName fullCachedName tempdir cmdOut
      classFileName cvsRoot revMsg cacheIt zArg|
 
+    (cls notNil and:[cls name includesString:'ExpeccoTestplan']) ifTrue:[self halt].
+    (fileName notNil and:[fileName asString includesString:'ExpeccoTestplan']) ifTrue:[self halt].
+    
     cacheIt := cacheItArg.
 
     (DisabledModules notNil and:[DisabledModules includes:moduleDir]) ifTrue:[
@@ -3142,6 +3163,7 @@
     "Created: / 04-11-1995 / 19:46:20 / cg"
     "Modified: / 20-08-1997 / 16:37:11 / stefan"
     "Modified: / 20-01-2012 / 16:43:37 / cg"
+    "Modified: / 02-07-2018 / 14:16:38 / Claus Gittinger"
 ! !
 
 !CVSSourceCodeManager class methodsFor:'source code administration'!
@@ -4183,9 +4205,12 @@
         newestRevisionsInModule:'bosch' directory:'dapasx'   
      SourceCodeManager 
         newestRevisionsInModule:'stx' directory:'goodies/net/ssl'   
+     SourceCodeManager 
+        newestRevisionsInModule:'stx' directory:'goodies/net'   
     "
 
     "Created: / 12-10-2006 / 10:12:59 / cg"
+    "Modified (comment): / 02-07-2018 / 12:38:06 / Claus Gittinger"
 !
 
 pathesForClasses:aCollectionOfClasses
@@ -5124,7 +5149,7 @@
                                     bindWith:modulePath
                                     with:(aDateOrNilForNewest isNil
                                                 ifTrue:[ '' ]
-                                                ifFalse:[ ' of ',aDateOrNilForNewest printString])).
+                                                ifFalse:[ ' of ',(aDateOrNilForNewest printStringFormat:'%y-%m-%d')])).
 
         dateSelector := aDateOrNilForNewest isNil 
                             ifTrue:[ '-h ' ]
@@ -5164,6 +5189,7 @@
 
     "Created: / 12-10-2006 / 10:12:59 / cg"
     "Modified: / 18-05-2018 / 12:50:53 / Stefan Vogel"
+    "Modified: / 02-07-2018 / 13:53:19 / Claus Gittinger"
 !
 
 revisionsInModule:module directory:packageDir taggedAs:symbolicName