--- a/DiffListUtility.st	Tue May 22 09:34:11 2018 +0200
+++ b/DiffListUtility.st	Tue May 22 18:28:55 2018 +0200
@@ -176,12 +176,8 @@
         diffList := OrderedCollection new.
         (stream readWaitWithTimeout:10) ifTrue:[
             "/ timeout
-            stream close.
-            (stream exitStatus notNil and:[stream exitStatus isError]) ifTrue:[
-                self error:'cannot execute diff (command error)' mayProceed:true.
-            ] ifFalse:[
-                self error:'cannot execute diff (timeout)' mayProceed:true.
-            ].
+            stream abortAndClose.
+            self error:'cannot execute diff (timeout)' mayProceed:true.
             ^ nil.
         ].
 
@@ -211,6 +207,8 @@
                         'line3'
                     )
     "
+
+    "Modified: / 22-05-2018 / 18:18:34 / Stefan Vogel"
 ! !
 
 !DiffListUtility class methodsFor:'documentation'!