--- a/Tools__ViewTreeApplication.st	Fri May 23 11:37:27 2014 +0200
+++ b/Tools__ViewTreeApplication.st	Thu May 29 11:50:18 2014 +0200
@@ -981,7 +981,10 @@
     <resource: #uiAspect>
 
     path isNil ifTrue:[
-        path := PluggableAdaptor on: self model getter:[ :model | model path ]
+        path := PluggableAdaptor 
+                    on: self model 
+                    getter:[ :model | model path ]
+                    setter:[ :model :newValue |  ]
     ].
     ^ path.
 
@@ -3149,8 +3152,8 @@
     views removeLast.
     ^ String streamContents:[ :s|
         views reverseDo:[:each |
-            s nextPutAll:' / '.
-            s nextPutAll: each name asString storeString.
+            s nextPutAll:'/'.
+            s nextPutAll: each name asString "storeString".
         ].
     ]