--- a/DialogBox.st	Fri Apr 17 03:43:22 2015 +0000
+++ b/DialogBox.st	Tue Apr 21 15:47:05 2015 +0200
@@ -1196,7 +1196,7 @@
 information:aString
     "launch a Dialog to tell user something"
 
-    self information:aString title:aString
+    self information:aString title:(aString upTo:Character cr)
 
     "
      Dialog information:'help'
@@ -10388,11 +10388,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.370 2015-04-16 09:35:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.371 2015-04-21 13:47:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.370 2015-04-16 09:35:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.371 2015-04-21 13:47:05 cg Exp $'
 ! !