--- a/Controll.st	Sat Sep 14 10:44:32 1996 +0200
+++ b/Controll.st	Sat Sep 14 13:32:38 1996 +0200
@@ -560,16 +560,20 @@
     (menuHolder notNil 
     and:[(sym := view menuMessage) notNil
     and:[sym isSymbol]]) ifTrue:[
-	"
-	 ask model for the menu
-	"
-	^ menuHolder perform:sym.
+        "
+         ask menuHolder (model) for the menu
+        "
+        (menuHolder respondsTo:sym) ifTrue:[
+            ^ menuHolder perform:sym.
+        ]
     ].
     ^ nil
+
+    "Modified: 14.9.1996 / 13:19:34 / cg"
 ! !
 
 !Controller  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.39 1996-08-22 07:17:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/Controll.st,v 1.40 1996-09-14 11:32:38 cg Exp $'
 ! !

--- a/Controller.st	Sat Sep 14 10:44:32 1996 +0200
+++ b/Controller.st	Sat Sep 14 13:32:38 1996 +0200
@@ -560,16 +560,20 @@
     (menuHolder notNil 
     and:[(sym := view menuMessage) notNil
     and:[sym isSymbol]]) ifTrue:[
-	"
-	 ask model for the menu
-	"
-	^ menuHolder perform:sym.
+        "
+         ask menuHolder (model) for the menu
+        "
+        (menuHolder respondsTo:sym) ifTrue:[
+            ^ menuHolder perform:sym.
+        ]
     ].
     ^ nil
+
+    "Modified: 14.9.1996 / 13:19:34 / cg"
 ! !
 
 !Controller  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.39 1996-08-22 07:17:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.40 1996-09-14 11:32:38 cg Exp $'
 ! !