--- a/Workspace.st	Wed Nov 27 12:20:54 2019 +0100
+++ b/Workspace.st	Fri Nov 29 20:45:23 2019 +0100
@@ -1047,6 +1047,16 @@
                     ].
                 ].
             ] do:[
+"/                |textBox|
+"/
+"/                textBox := TextBox new.
+"/                textBox initialText:aString.
+"/                textBox label:('Compilation Error').
+"/                textBox title:('Compilation Error').
+"/                textBox readOnly:true.
+"/                textBox open.    
+"/                answer := textBox accepted.   
+
                 answer := OptionBox
                         request:aString
                         buttonLabels:(resources array:#('Cancel'  "'Keep Selected'" 'Continue'))