--- a/PerforceSourceCodeManager.st	Wed May 15 12:47:10 2013 +0200
+++ b/PerforceSourceCodeManager.st	Wed May 15 12:47:42 2013 +0200
@@ -1292,9 +1292,16 @@
 perforceTmpDirectory
     "return the name of the tmp repository.
      That's the directory, where temporary files are created for checkin/checkout.
-     If nil, the system's default tempDirectory is used."
+     If nil, a directory under the system's default tempDirectory is used."
+
+    |d|
 
-    ^ (PerforceTempDir ? Filename tempDirectory pathName)
+    PerforceTempDir notNil ifTrue:[^ PerforceTempDir].
+    d := Filename tempDirectory / 'stx_p4'.
+    d exists ifFalse:[
+        d recursiveMakeDirectory.
+    ].
+    ^ d pathName
 
     "
      PerforceTempDir := nil
@@ -1808,7 +1815,7 @@
      Timestamp now printOn:s format:'%h-%m-%s.%i'.
      versionInfo time:s contents.
      PerforceVersionInfo fromRCSString:versionInfo getVersionString.
-     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
+     PerforceVersionInfo fromRCSString:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
     "
 
     "Modified: / 01-06-2012 / 13:32:40 / cg"
@@ -1909,10 +1916,10 @@
 !PerforceSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.32 2013-05-07 18:37:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.33 2013-05-15 10:47:42 cg Exp $'
 ! !