--- a/ByteCodeCompiler.st	Sun Mar 02 19:30:40 2003 +0100
+++ b/ByteCodeCompiler.st	Sun Mar 02 19:39:00 2003 +0100
@@ -3401,8 +3401,9 @@
     initName := 'm_' , OperatingSystem getProcessId printString, '_' , SequenceNumber printString.
 
     stFileName := (Filename currentDirectory construct:(initName , '.st')) name. 
-    stream := stFileName asFilename writeStream.
-    stream isNil ifTrue:[
+    [
+        stream := stFileName asFilename writeStream.
+    ] on:FileStream openErrorSignal do:[:ex|
         self parseError:'cannot create temporary sourcefile for compilation'.
         ^ #CannotLoad
     ].
@@ -3828,7 +3829,7 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.211 2003-02-25 19:43:38 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.212 2003-03-02 18:39:00 stefan Exp $'
 ! !
 
 ByteCodeCompiler initialize!