--- a/MenuView.st	Sun Jun 01 13:05:56 2014 +0200
+++ b/MenuView.st	Wed Jun 04 14:38:35 2014 +0200
@@ -1517,13 +1517,11 @@
     ].
 
     subMenus at:i put:aPopUpMenu.
-    aPopUpMenu notNil ifTrue:[
-        aPopUpMenu isBlock ifFalse:[
-            aPopUpMenu device:self graphicsDevice.
-            (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[
-                aPopUpMenu receiver:receiver
-            ]
-        ].
+    (aPopUpMenu notNil and:[aPopUpMenu isBlock not]) ifTrue:[
+        aPopUpMenu device:self graphicsDevice.
+        (receiver notNil and:[aPopUpMenu receiver isNil]) ifTrue:[
+            aPopUpMenu receiver:receiver
+        ]
     ].
 
     "Modified: 17.1.1997 / 01:03:55 / cg"
@@ -3004,10 +3002,10 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.184 2014-02-18 14:56:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.185 2014-06-04 12:38:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.184 2014-02-18 14:56:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.185 2014-06-04 12:38:35 cg Exp $'
 ! !