--- a/UIPropertyView.st	Mon May 26 10:30:27 1997 +0200
+++ b/UIPropertyView.st	Mon May 26 13:00:29 1997 +0200
@@ -23,8 +23,11 @@
 
 documentation
 "
-    provides tools to the UIPainter accessing and manipulation
-    properties and/or layouts.
+    provides tools to the UIPainter accessing and manipulation properties
+    and/or layouts.
+
+    [see also:]
+        UIBuilder
 "
 
 ! !
@@ -1745,17 +1748,11 @@
             spec := self class perform:spec.
         ].
         self buildFromSpec:spec.
-    ].
-    idx := layoutTypes findFirst:[:type| type == aLayoutType ].
-    noteBook setSelection:idx.
-
-    selection == aLayoutType ifFalse:[
-        (selection := aLayoutType) notNil ifTrue:[
+    ] ifTrue:[
+        selection notNil ifTrue:[
             self perform:(('fetch',   selection asString) asSymbol).
-            spec := ('specification', selection asString) asSymbol.
-            spec := self class perform:spec.
-        ].
-        self buildFromSpec:spec.
+            self modified:false.
+        ]
     ].
     idx := layoutTypes findFirst:[:type| type == aLayoutType ].
     noteBook setSelection:idx.