--- a/CVSSourceCodeManager.st	Tue Sep 22 10:46:18 2009 +0200
+++ b/CVSSourceCodeManager.st	Tue Sep 22 13:21:34 2009 +0200
@@ -717,6 +717,10 @@
     path := (moduleDir asFilename construct:packageDir) construct:fileToCheckout.
 
     tempdir := self createTempDirectory:nil forModule:nil.
+    tempdir isNil ifTrue:[
+        ('no tempDir - cannot checkout') errorPrintCR.
+        ^ nil
+    ].
 
     [
         OperatingSystem isUNIXlike ifTrue:[
@@ -1364,6 +1368,10 @@
     "/ first, create a temporary work tree
     "/
     tempdir := self createTempDirectory:nil forModule:nil.
+    tempdir isNil ifTrue:[
+        ('no tempDir - cannot checkin ' , containerFilename) errorPrintCR.
+        ^ false
+    ].
 
     "/
     "/ next, create CVS/Entries and CVS/Repository with version information of current version
@@ -1890,6 +1898,10 @@
     "/ first, create a temporary work tree
     "/
     tempdir := self createTempDirectory:nil forModule:nil.
+    tempdir isNil ifTrue:[
+        ('no tempDir - cannot checkin ' , className) errorPrintCR.
+        ^ false
+    ].
 
     "/
     "/ next, create CVS/Entries and CVS/Repository with version information of current version
@@ -2613,6 +2625,10 @@
     "/ Do not make module and package directories, their existence cause cvs checkout to fail in server mode
     "/
     tempdir := self createTempDirectory:nil forModule:nil.
+    tempdir isNil ifTrue:[
+        ('CVSSourceCodeManager [error]: no tempDir - cannot checkout ' , classFileName) errorPrintCR.
+        ^ nil
+    ].
 
 "/    tempdir := Filename newTemporaryIn:nil.
 "/    tempdir exists ifTrue:[
@@ -3313,6 +3329,10 @@
     "/ first, create a temporary work tree
     "/
     tempdir := self createTempDirectory:nil forModule:moduleName.
+    tempdir isNil ifTrue:[
+        'CVSSourceCodeManager [error]: no tempDir - cannot create moduleDirectory' errorPrintCR.
+        ^ false
+    ].
 
     cmdOut := Filename newTemporary.
     cmdOut exists ifTrue:[
@@ -3879,6 +3899,10 @@
     "/ against any info found in CVS/Root
 
     tempDir := self createTempDirectory:nil forModule:nil.
+    tempDir isNil ifTrue:[
+        ('CVSSourceCodeManager [error]: no tempDir - cannot extract log') errorPrintCR.
+        ^ nil.
+    ].
 
     roots do:[:eachCvsRoot |
         |root host cmd|
@@ -4088,6 +4112,10 @@
 
     self use_rlog ifFalse:[
         tempDir := self createTempDirectory:nil forModule:nil.
+        tempDir isNil ifTrue:[
+            ('CVSSourceCodeManager [error]: no tempDir - cannot extract log') errorPrintCR.
+            ^ nil.
+        ].
     ].
 
     [
@@ -4662,6 +4690,10 @@
     modulePath :=  moduleDir , '/' , packageDir. 
     fullName :=  modulePath , '/' , classFileName.
     tempDir := self createTempDirectory:nil forModule:nil.
+    tempDir isNil ifTrue:[
+        ('CVSSourceCodeManager [error]: no tempDir - cannot extract log') errorPrintCR.
+        ^ nil.
+    ].
 
     [
         self createEntryFor:fullName 
@@ -4754,7 +4786,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.365 2009-09-08 14:15:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.366 2009-09-22 11:21:34 fm Exp $'
 ! !
 
 CVSSourceCodeManager initialize!