--- a/STCCompilerInterface.st	Wed Mar 13 17:05:03 2013 +0100
+++ b/STCCompilerInterface.st	Thu Mar 14 02:38:19 2013 +0100
@@ -155,7 +155,7 @@
      an redefined in subclasses which can do it (either by direct compilation, or by calling
      the external stc do do it)."
 
-    |handle oldMethod newMethod ok moduleFileName dllFileName|
+    |handle oldMethod newMethod ok dllFileName|
 
     install ifFalse:[
         "/ cannot do it uninstalled. reason:
@@ -199,12 +199,14 @@
         self generateSTSource:aString.
         self setupCompilationCommandArguments.
         ok := self compileToC.
-        ok ifTrue:[
-            parserFlags stcKeepSIntermediate ifTrue:[ self compileToS ].
-            "/ now compile to machine code
-            ok := self compileToObj.
+        ok ifFalse:[
+            self reportCompilationErrorFor:stcPath.
+            ^ #Error
         ].
 
+        parserFlags stcKeepSIntermediate ifTrue:[ self compileToS ].
+        "/ now compile to machine code
+        ok := self compileToObj.
         ok ifFalse:[
             self reportCompilationErrorFor:ccPath.
             ^ #Error
@@ -860,11 +862,11 @@
 !STCCompilerInterface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.31 2013-02-22 10:42:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.32 2013-03-14 01:38:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.31 2013-02-22 10:42:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/STCCompilerInterface.st,v 1.32 2013-03-14 01:38:19 cg Exp $'
 ! !