--- a/DebugView.st	Fri Jul 07 13:01:41 2006 +0200
+++ b/DebugView.st	Fri Jul 07 14:51:42 2006 +0200
@@ -2480,9 +2480,16 @@
 !
 
 setLabelFor:aMessage in:aProcess
-    |l nm|
-
-    l := aMessage , ' ('.
+    |l lines nm|
+
+    lines := aMessage asStringCollection.
+    lines size > 1 ifTrue:[
+        l := lines first
+    ] ifFalse:[
+        l := aMessage.
+    ].
+
+    l := l , ' ('.
     Error handle:[:ex |
         l := l , '???'
     ] do:[
@@ -2494,6 +2501,8 @@
     ].
     l := l , ')'.
     self label:l.
+
+    "Modified: / 06-07-2006 / 12:43:19 / cg"
 ! !
 
 !DebugView methodsFor:'interrupt handling'!
@@ -5994,7 +6003,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.398 2006-07-05 15:41:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.399 2006-07-07 12:51:42 cg Exp $'
 ! !
 
 DebugView initialize!