--- a/XWorkstation.st	Fri Mar 20 18:11:26 2009 +0100
+++ b/XWorkstation.st	Fri Mar 20 18:13:30 2009 +0100
@@ -4451,11 +4451,12 @@
 
     self configureX:x y:y width:w height:h view:view.
     above notNil ifTrue:[
-	|aboveView|
-	aboveView := self viewFromId:above.
-	aboveView notNil ifTrue:[
-	    self coveredBy:aboveView view:view.
-	].
+        |aboveView|
+        aboveView := self viewFromId:above.
+        aboveView notNil ifTrue:[
+            "view is now on the top of the window stack"
+            self coveredBy:view view:aboveView.
+        ].
      ].
 !
 
@@ -12030,7 +12031,7 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.505 2009-03-17 19:40:46 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.506 2009-03-20 17:13:30 stefan Exp $'
 ! !
 
 XWorkstation initialize!