diff -r f30eb7ea54cd -r b0fd54ee0412 compiler/PPCPluggableNode.st
--- a/compiler/PPCPluggableNode.st	Thu Nov 06 01:41:10 2014 +0000
+++ b/compiler/PPCPluggableNode.st	Thu Nov 06 02:22:56 2014 +0000
@@ -30,10 +30,20 @@
 !
 
 asInlined
-	^ PPCInlinePluggableNode new
-		name: name;
-		block: block;
-		yourself
+    "Sadly, on Smalltalk/X blocks cannot be inlined because
+     the VM does not provide enough information to map
+     it back to source code. Very bad indeed!!"
+
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+        ^ super asInlined
+    ] ifFalse:[
+        ^ PPCInlinePluggableNode new
+                name: name;
+                block: block;
+                yourself
+    ]
+
+    "Modified: / 06-11-2014 / 01:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compileWith: compiler effect: effect id: id