--- a/SettingsDialog.st	Wed May 12 13:08:14 2004 +0200
+++ b/SettingsDialog.st	Wed May 12 15:10:51 2004 +0200
@@ -1279,8 +1279,10 @@
 
     <resource: #programMenu >
 
-    self application isNil ifTrue:[ ^ nil].
-    ^ self application settingsDialogPopUpMenu
+    |application|
+
+    (application := self application) isNil ifTrue:[ ^ nil].
+    ^ application settingsDialogPopUpMenu
 ! !
 
 !SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'printing & storing'!
@@ -1305,7 +1307,7 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.50 2004-03-02 16:28:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.51 2004-05-12 13:10:51 cg Exp $'
 ! !
 
 SettingsDialog initialize!