--- a/DialogBox.st	Tue Feb 19 22:49:06 2019 +0100
+++ b/DialogBox.st	Wed Feb 20 10:16:20 2019 +0100
@@ -1166,14 +1166,20 @@
     (clsRev := aClass revision) notNil ifTrue: [rev := '  (rev: ', clsRev printString, ')'].
     resources := aClass classResources.
 
-    msg := '\' withCRs , aClass name allBold, rev.
+    msg := c'\n' , aClass name allBold, rev.
     textOrNil notNil ifTrue:[
-        msg := msg , '\\' withCRs , textOrNil
+        msg := msg , c'\n\n' , textOrNil
     ].
     self
         about:msg
         label:(resources string:'About ' , aClass nameWithoutPrefix)
         icon:aClass defaultIconForAboutBox
+
+    "
+     self aboutClass:Array withText:'bla bla'
+    "
+
+    "Modified: / 20-02-2019 / 10:15:26 / Claus Gittinger"
 !
 
 ask:setupBlock ifNotNilOrEmptyDo:actionBlock