--- a/PullDownMenu.st	Wed Nov 24 15:54:38 1999 +0100
+++ b/PullDownMenu.st	Wed Nov 24 17:04:17 1999 +0100
@@ -802,13 +802,13 @@
 
 disable:anItem
     menus do:[:aMenu |
-        aMenu disable:anItem
+        aMenu notNil ifTrue:[aMenu disable:anItem]
     ]
 !
 
 enable:anItem
     menus do:[:aMenu |
-        aMenu enable:anItem
+        aMenu notNil ifTrue:[aMenu enable:anItem]
     ]
 ! !
 
@@ -1803,5 +1803,5 @@
 !PullDownMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.88 1999-11-24 12:25:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PullDownMenu.st,v 1.89 1999-11-24 16:04:17 cg Exp $'
 ! !