--- a/Tools__Inspector2Tab.st	Thu Jul 07 14:06:54 2016 +0200
+++ b/Tools__Inspector2Tab.st	Thu Jul 07 14:07:40 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2006 by eXept Software AG
 	      All Rights Reserved
@@ -16,7 +14,7 @@
 "{ NameSpace: Tools }"
 
 Object subclass:#Inspector2Tab
-	instanceVariableNames:'label view application priority viewHolder'
+	instanceVariableNames:'label view application priority viewHolder applicationHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Inspector2'
@@ -53,6 +51,10 @@
     "Modified: / 17-02-2008 / 08:58:34 / janfrog"
 !
 
+applicationHolder:something
+    applicationHolder := something.
+!
+
 label
     ^ label
 
@@ -91,8 +93,9 @@
         viewHolder notNil ifTrue:[
             view := viewHolder value
         ] ifFalse:[
-            application notNil ifTrue:[
-                view := ApplicationSubView new client: application value
+            applicationHolder notNil ifTrue:[
+                view := ApplicationSubView new.
+                view client: applicationHolder value.
             ]
         ]
     ].