--- a/Filename.st	Tue Nov 12 12:21:43 1996 +0100
+++ b/Filename.st	Tue Nov 12 12:23:32 1996 +0100
@@ -406,7 +406,7 @@
 
     |tempDir|
 
-    #('STX_TMPDIR' 'ST_TMPDIR' 'TMPDIR' 'TEMPDIR') do:[:envVar |
+    #('STX_TMPDIR' 'ST_TMPDIR' 'TMPDIR' 'TEMPDIR' 'TEMP' 'TMP') do:[:envVar |
         tempDir isNil ifTrue:[
             tempDir := OperatingSystem getEnvironment:envVar.
         ].
@@ -423,7 +423,7 @@
 
     "Modified: 7.9.1995 / 10:48:31 / claus"
     "Created: 7.3.1996 / 14:51:18 / cg"
-    "Modified: 12.11.1996 / 12:21:06 / cg"
+    "Modified: 12.11.1996 / 12:23:19 / cg"
 ! !
 
 !Filename class methodsFor:'queries'!
@@ -2056,5 +2056,5 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.72 1996-11-12 11:21:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.73 1996-11-12 11:23:32 cg Exp $'
 ! !