--- a/ByteCodeCompiler.st	Mon Oct 08 14:36:16 2012 +0200
+++ b/ByteCodeCompiler.st	Mon Oct 08 14:37:31 2012 +0200
@@ -3161,9 +3161,9 @@
             "/
             newMethod := self trappingStubMethodFor:sourceCodeString inCategory:newCategory.
             install ifTrue:[
-                self showErrorNotification:'not compiled to machine code - installed a stub instead.'.
                 aClass addSelector:selector withMethod:newMethod.
             ].
+            self showErrorNotification:'not compiled to machine code - installed a stub instead.'.
             ^ newMethod
         ].
     ].
@@ -3342,11 +3342,22 @@
 !
 
 showErrorNotification:message
-    Transcript show:'***'.
+    |messageText|
+
+    messageText := message.
     selector notNil ifTrue:[
-        Transcript show:(selector ,' ')
+        messageText := selector ,' ', messageText.
     ].
-    Transcript showCR:message.
+
+    self class parseWarningSignal isHandled ifTrue:[
+        self class parseWarningSignal new
+                errorMessage:messageText;
+                parameter:self;
+                raiseRequest.
+    ] ifFalse:[
+        Transcript show:'***'.
+        Transcript showCR:messageText.
+    ].
 ! !
 
 !ByteCodeCompiler methodsFor:'machine code generation'!
@@ -3541,11 +3552,11 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.269 2012-10-08 08:27:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.270 2012-10-08 12:37:31 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.269 2012-10-08 08:27:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.270 2012-10-08 12:37:31 stefan Exp $'
 !
 
 version_SVN