--- a/IRFunction.st	Thu Oct 30 22:27:09 2014 +0000
+++ b/IRFunction.st	Thu Oct 30 22:42:40 2014 +0000
@@ -172,13 +172,16 @@
 !IRFunction methodsFor:'debugging support'!
 
 inspector2TabIRCode
+    <inspector2Tab>
 
-    ^Tools::Inspector2Tab new
-	label: 'IR Code';
-	priority: 75;
-	view: ((ScrollableView for:TextView) contents: self longPrintString; yourself)
+    ^(Smalltalk at: #Tools::Inspector2Tab) new
+        label: 'IR Code';
+        priority: 75;
+        text: [ self longPrintString ];
+        yourself
 
     "Created: / 11-06-2008 / 01:05:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 30-10-2014 / 22:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !IRFunction methodsFor:'decompiling'!