--- a/DialogBox.st	Fri Jul 12 14:46:43 2002 +0200
+++ b/DialogBox.st	Mon Jul 15 14:03:11 2002 +0200
@@ -7416,7 +7416,7 @@
     "return an interface specs literal encoding.
      Notice - Dialog should be moved under AppModel so this becomes obsolete."
 
-    |displayDevice displayDeviceType app modifiedKey|
+    |displayDevice displayDeviceType modifiedKey|
 
     "/ this code is so ugly...
     displayDevice := (Screen current) ? Screen default.
@@ -7551,6 +7551,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.192 2002-07-12 12:46:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.193 2002-07-15 12:03:11 stefan Exp $'
 ! !
 DialogBox initialize!