--- a/SimpleDialog.st	Wed Aug 15 14:52:20 2001 +0200
+++ b/SimpleDialog.st	Fri Aug 17 14:43:50 2001 +0200
@@ -483,8 +483,13 @@
      dialog.
      Return true if accepted, false if canceled"
 
+    |app|
+
     builder addBindings:bindings.
-    self source:(anApplication ifNil:[ApplicationModel new]).
+    (app := anApplication) isNil ifTrue:[
+        app := ApplicationModel new
+    ].
+    self source:app.
     ^ self openFrom:aSpec
 
     "Modified: 28.2.1997 / 16:22:00 / cg"
@@ -626,5 +631,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.35 2000-12-07 13:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.36 2001-08-17 12:43:50 cg Exp $'
 ! !