--- a/DialogBox.st	Sun Feb 02 15:55:28 2003 +0100
+++ b/DialogBox.st	Mon Feb 03 12:20:09 2003 +0100
@@ -2926,7 +2926,7 @@
         box := EnterBoxWithList title:aString.
         box list:listToSelectFrom.
     ].
-    box initialText:initial printString.
+    initial notNil ifTrue:[ box initialText:initial printString ].
     anInterval notNil ifTrue:[
         box selectFrom:anInterval start to:anInterval stop.
     ].
@@ -7701,7 +7701,7 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.206 2002-12-11 12:01:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.207 2003-02-03 11:20:09 cg Exp $'
 ! !
 
 DialogBox initialize!