--- a/VerticalPanelView.st	Sun Oct 16 13:52:15 2016 +0200
+++ b/VerticalPanelView.st	Mon Oct 17 16:02:12 2016 +0200
@@ -1093,8 +1093,8 @@
     subViews do:[:child |
         |childsPreference|
 
-        false "child realized" ifTrue:[
-            childsPreference := child extent.
+        child realized ifTrue:[
+            childsPreference := child extent max:child preferredExtent.
         ] ifFalse:[
             childsPreference := child preferredExtent.
         ].