--- a/SimpleDialog.st	Wed Feb 09 20:15:08 2000 +0100
+++ b/SimpleDialog.st	Wed Feb 09 20:18:18 2000 +0100
@@ -471,7 +471,7 @@
      Return true if accepted, false if canceled"
 
     builder addBindings:bindings.
-    self source:(anApplication ? self).
+    self source:(anApplication ifNil:[ApplicationModel new]).
     ^ self openFrom:aSpec
 
     "Modified: 28.2.1997 / 16:22:00 / cg"
@@ -603,5 +603,5 @@
 !SimpleDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.27 2000-02-09 19:15:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.28 2000-02-09 19:18:18 cg Exp $'
 ! !