--- a/BCompiler.st	Sun Jan 07 13:34:02 1996 +0100
+++ b/BCompiler.st	Sun Jan 07 14:07:29 1996 +0100
@@ -1647,6 +1647,10 @@
     initName := 'ttt' , SequenceNumber printString.
     stFileName := initName , '.st'. 
     stream := stFileName asFilename writeStream.
+    stream isNil ifTrue:[
+	self parseError:'cannot create temporary sourcefile for compilation'.
+	^ #CannotLoad
+    ].
     sep := stream class chunkSeparator.
 
     class := aClass.
@@ -1959,5 +1963,5 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.58 1996-01-03 16:10:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.59 1996-01-07 13:07:29 cg Exp $'
 ! !