--- a/Object.st	Wed Aug 20 23:28:10 2008 +0200
+++ b/Object.st	Wed Aug 20 23:28:38 2008 +0200
@@ -2745,7 +2745,7 @@
     "{ Pragma: +optSpace }"
 
     EnabledBreakPoints notNil ifTrue:[
-        EnabledBreakPoints remove:someKey.
+        EnabledBreakPoints remove:someKey ifAbsent:[].
         EnabledBreakPoints isEmpty ifTrue:[
             EnabledBreakPoints := nil
         ].
@@ -9078,7 +9078,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.609 2008-08-20 21:28:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.610 2008-08-20 21:28:38 cg Exp $'
 ! !
 
 Object initialize!