Filename.st
changeset 12617 7c826d99119a
parent 12529 259acc29cc3a
child 12910 8d6cd403131f
--- a/Filename.st	Mon Dec 14 14:46:33 2009 +0100
+++ b/Filename.st	Mon Dec 14 15:20:41 2009 +0100
@@ -533,7 +533,7 @@
      whatever to it in order to really create something).
      See also: #newTemporary which looks for a good temp directory."
 
-    ^ self newTemporaryIn:aDirectoryOrNil nameTemplate:self tempFileNameTemplate
+    ^ self newTemporaryIn:aDirectoryOrNil nameTemplate:(self tempFileNameTemplate)
 
     "temp files in '/tmp':
 
@@ -585,7 +585,7 @@
     ].
 
     [
-        nameString := template bindWith:OperatingSystem getProcessId with:NextTempFilenameIndex.
+        nameString := template bindWith:(OperatingSystem getProcessId) with:NextTempFilenameIndex.
         NextTempFilenameIndex := NextTempFilenameIndex + 1.
 
         (aDirectoryOrNil isNil or:[aDirectoryOrNil asString isEmpty]) ifFalse:[
@@ -5783,11 +5783,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.348 2009-11-15 22:15:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.349 2009-12-14 14:20:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.348 2009-11-15 22:15:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.349 2009-12-14 14:20:41 cg Exp $'
 ! !
 
 Filename initialize!