--- a/DialogBox.st	Sun Oct 23 11:40:11 2016 +0200
+++ b/DialogBox.st	Mon Oct 31 14:45:42 2016 +0100
@@ -6255,7 +6255,10 @@
         do:[self warn:warnString]
 
     "
-     Dialog withOptoutOption:[Transcript flash] labelled:'opt out' warn:'some warning'.
+     Dialog 
+        withOptoutOption:[Transcript flash] 
+        labelled:'opt out' 
+        warn:'some warning'.
     "
 ! !