--- a/UILayoutTool.st	Wed Jul 23 10:38:16 1997 +0200
+++ b/UILayoutTool.st	Wed Jul 23 10:59:16 1997 +0200
@@ -431,8 +431,15 @@
         self class slices findFirst:[:e|
             e last == type ifTrue:[name := e first. true]
         ].
-        type ~~ #Extent ifTrue:[ list := tabList ]
-                       ifFalse:[ list := Array with:name ].
+        list := tabList.
+
+        type == #Extent ifTrue:[
+            aView superView specClass isLayoutContainer ifTrue:[
+                list := Array with:name
+            ] ifFalse:[
+                list := list copyWith:name
+            ]
+        ]
     ].
     self noteBookList  value:list.
     self noteBookModel value:name.