dsc | 5 +++--

diff --git a/dsc b/dsc
index ececf810aeb78f45fe0beb22fca36c3447d2ae870e07129fa2d20d9ebf017359..ea17239295d7235207e670cf7bb6d018515cb9ae08ff55f04d322b0052f5853c 100755
--- a/dsc
+++ b/dsc
@@ -54,6 +54,7 @@     exit 1
 }
 
 set CopyBufLen [expr {128 * 1024}]
+if {[info exists env(TMPDIR)]} {set TMPDIR $env(TMPDIR)} {set TMPDIR /tmp}
 if {[info exists env(DSC_SCHEMA)]} {set Schema $env(DSC_SCHEMA)} {set Schema schema}
 if {[info exists env(DSC_STASH)]} {set Stash $env(DSC_STASH)} {set Stash stash}
 if {[info exists env(DSC_SAVED)]} {set Saved $env(DSC_SAVED)} {set Saved saved}
@@ -299,13 +300,13 @@             }
         }
     }
     diff {
-        set dirsSaved [file tempfile dirsSaved.XXXXXX]
+        set dirsSaved [file tempfile $TMPDIR/dsc.dirsSaved.XXXXXX]
         set fh [open $dirsSaved w]
         foreach fn [walk $Saved/$opt directory] {
             puts $fh [string range $fn [string length $Saved]+1 end]
         }
         close $fh
-        set dirsStash [file tempfile dirsStash.XXXXXX]
+        set dirsStash [file tempfile $TMPDIR/dsc.dirsStash.XXXXXX]
         set fh [open $dirsStash w]
         foreach fn [walk $Stash/$opt directory] {
             puts $fh [string range $fn [string length $Stash]+1 end]