--- a/DebugView.st	Thu Sep 20 11:37:52 2007 +0200
+++ b/DebugView.st	Thu Sep 20 14:01:56 2007 +0200
@@ -3663,6 +3663,7 @@
     "open a mail report tool"
 
     | str |
+
     str := '' writeStream.
 
     str nextPutLine:('Error notification from '
@@ -3684,10 +3685,15 @@
         firstContext fullPrintAllOn:str.
     ].
     str cr;cr.
-    SendMailTool openForMessage:(str contents) withSubject:('STX Error:[', self label, ']') preOpenBlock:[:inst|
-        inst recipientEntryField value:'error@exept.de'
-    ].
-    str close.
+
+    SendMailTool 
+        openForMessage:(str contents) 
+        withSubject:('STX Error:[', self label, ']') 
+        preOpenBlock:[:inst|
+            inst recipientEntryField value:'error@exept.de'
+        ].
+
+    "Modified: / 20-09-2007 / 12:40:40 / cg"
 !
 
 doRestart
@@ -6051,7 +6057,7 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.420 2007-09-20 09:37:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.421 2007-09-20 12:01:56 cg Exp $'
 ! !
 
 DebugView initialize!