--- a/ObjectMemory.st	Fri Apr 11 11:14:17 2014 +0200
+++ b/ObjectMemory.st	Fri Apr 11 14:09:19 2014 +0200
@@ -1418,9 +1418,8 @@
         numObjectsDone := 0.
         found := false.
 
-        AbortOperationRequest handle:[]
-        do:[
-            [self allObjectsIncludingContextsDo:[:o |
+        AbortOperationRequest catch:[
+            self allObjectsIncludingContextsDo:[:o |
                 |inPrevLevel isOwner|
 
                 stop ifTrue:[AbortOperationRequest raise].
@@ -1470,7 +1469,7 @@
                         ]
                     ]
                 ]
-            ]] whileFalse.
+            ].
         ].
         progress percentage:100.
 
@@ -5552,7 +5551,7 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.273 2014-02-05 17:18:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.274 2014-04-11 12:09:19 stefan Exp $'
 !
 
 version_SVN