--- a/Tools__TestRunnerEmbedded.st	Wed May 07 18:07:51 2014 +0200
+++ b/Tools__TestRunnerEmbedded.st	Wed May 07 18:08:57 2014 +0200
@@ -1036,10 +1036,15 @@
     |container list h|
 
     (container := self window container) ifNil:[ ^ self ].
+
     h := visibility ifFalse:[0] ifTrue:[ height ].
     container isVisible == visibility ifFalse:[
         container isVisible:visibility
     ].
+    "/ this is the kind of dangerous access which breaks, whenever some wrapping setup
+    "/ changes. Never do this!!!!!!!!
+    "/ I'd rather see code which refers to the widget by name,
+    "/ or if there is an explicit setter for the container, from which to steal the space.
     list := container container subViews first.
     (list layout bottomOffset ~= height negated) ifTrue:[
         list layout:((list layout)
@@ -1316,14 +1321,14 @@
 !TestRunnerEmbedded class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.37 2014-02-05 18:59:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.38 2014-05-07 16:08:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.37 2014-02-05 18:59:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunnerEmbedded.st,v 1.38 2014-05-07 16:08:57 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.37 2014-02-05 18:59:24 cg Exp $'
+    ^ '$Id: Tools__TestRunnerEmbedded.st,v 1.38 2014-05-07 16:08:57 cg Exp $'
 ! !