--- a/WindowBuilder.st	Mon Mar 09 17:06:35 1998 +0100
+++ b/WindowBuilder.st	Mon Mar 09 17:11:39 1998 +0100
@@ -751,17 +751,18 @@
                     ]
                  ].
 
-    ((menu := menu value) notNil and:[application notNil]) ifTrue:[
-        menu isArray ifTrue:[
-            menu := Menu new fromLiteralArrayEncoding:menu.
-            menu receiver:application.
-        ] ifFalse:[
-            menu findGuiResourcesIn:application
+    menu isBlock ifFalse:[
+        ((menu := menu value) notNil and:[application notNil]) ifTrue:[
+            menu isArray ifTrue:[
+                menu := Menu new fromLiteralArrayEncoding:menu.
+                menu receiver:application.
+            ] ifFalse:[
+                menu findGuiResourcesIn:application
+            ]
         ]
     ].
     ^ menu
 
-
 !
 
 specificationFor:aKey
@@ -994,5 +995,5 @@
 !WindowBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.61 1998-02-27 12:52:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.62 1998-03-09 16:11:39 ca Exp $'
 ! !