--- a/extensions.st	Fri Dec 26 11:54:36 2014 +0100
+++ b/extensions.st	Fri Dec 26 13:59:44 2014 +0100
@@ -719,6 +719,25 @@
     "Created: / 10-10-2014 / 11:12:26 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
+!RBMethod methodsFor:'compiler interface'!
+
+programmingLanguage
+    "see CompiledCode >> programmingLanguage"
+
+    self method notNil ifTrue: [ 
+        ^ self method programmingLanguage
+    ].
+
+    self mclass notNil ifTrue: [ 
+        ^ self mclass programmingLanguage
+    ].
+
+    "None programming language found, assume Smalltalk as default"
+    ^ SmalltalkLanguage instance
+
+    "Created: / 26-12-2014 / 11:59:24 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+
 !RBMethod methodsFor:'accessing'!
 
 protocol