--- a/BCompiler.st	Fri May 19 02:32:23 1995 +0200
+++ b/BCompiler.st	Fri May 19 05:57:50 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.22 1995-05-18 22:56:53 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.23 1995-05-19 03:57:37 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.22 1995-05-18 22:56:53 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.23 1995-05-19 03:57:37 claus Exp $
 "
 !
 
@@ -1413,6 +1413,8 @@
     "
      call stc to compile it
     "
+    oFileName := './' , initName , '.o'. 
+    oFileName asFilename delete.
 
     flags := ' +newIncremental -N' , initName .
     STCCompilationFlags notNil ifTrue:[
@@ -1441,6 +1443,15 @@
 	]
     ].
 
+    oFileName asFilename exists ifTrue:[
+	ok ifFalse:[
+	    'oops - system says it failed - but o-file is there ...' printNL.
+	    ok := true
+	]
+    ] ifFalse:[
+	ok := false
+    ].
+
     ok ifFalse:[
 	status := OperatingSystem lastExecStatus.
 	status >= 16r200 ifTrue:[
@@ -1451,7 +1462,6 @@
 	^ #Error
     ].
 
-    oFileName := './' , initName , '.o'. 
     OperatingSystem getOSType = 'irix' ifTrue:[
 	"
 	 link it to a shared object
@@ -1489,7 +1499,12 @@
 
 "/    ('init at ' , address printString) printNL.
 
-    ObjectFileLoader callFunctionAt:address forceOld:true arg:2.
+    ObjectFileLoader 
+	callInitFunctionAt:address 
+	specialInit:true
+	forceOld:true 
+	interruptable:false
+	argument:2.
 
     "
      did it work ?