--- a/OperationQueue.st	Wed Dec 13 17:28:02 2000 +0100
+++ b/OperationQueue.st	Fri Dec 15 16:55:35 2000 +0100
@@ -114,7 +114,15 @@
     opInQ := queue next.
 
     theOperation := opInQ operation.
-    rslt := theOperation value.
+    Object abortSignal handle:[:ex |
+        opInQ operationResult:nil.
+    ] do:[
+        Object errorSignal handle:[:ex |
+            opInQ operationResult:nil.
+        ] do:[
+            rslt := theOperation value.
+        ].
+    ].
     opInQ operationResult:rslt.
 
     opInQ operationPerformedSema signalForAll.
@@ -265,5 +273,5 @@
 !OperationQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/OperationQueue.st,v 1.3 2000-12-08 10:24:00 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/OperationQueue.st,v 1.4 2000-12-15 15:55:35 martin Exp $'
 ! !