--- a/DialogBox.st	Tue Jul 16 16:50:10 2019 +0200
+++ b/DialogBox.st	Wed Jul 17 10:04:13 2019 +0200
@@ -3989,7 +3989,7 @@
 !
 
 request:string1 on:holder1 
-    andText:string2 lines:numLines on:holder2 
+    andText:string2 lines:numLines on:initial2 
     label:label title:boxTitle 
     okLabel:okLabel cancelLabel:cancelLabel onCancel:cancelValue
 
@@ -3999,7 +3999,7 @@
      Returns the entered strings as a pair or the value from cancelValue.
      Useful to ask for short message+long message"
 
-    |box|
+    |box textView|
 
     box := DialogBox new.
     box windowTitle:boxTitle.
@@ -4009,8 +4009,8 @@
     (box addInputFieldOn:holder1 tabable:true).
         
     (box addTextLabel:string2 adjust:#left) leftInset:0 rightInset:0.
-    box
-        addTextBoxOn:holder2 class:EditTextView 
+    textView:=box
+        addTextBoxOn:initial2 class:EditTextView 
         withNumberOfLines:numLines 
         hScrollable:true vScrollable:true.
 
@@ -4024,7 +4024,7 @@
     box accepted ifFalse:[
         ^ cancelValue value.
     ].
-    ^ { holder1 value . holder2 value }
+    ^ { holder1 value . textView contents }
 
     "
      Dialog