--- a/ObjectMemory.st	Wed Jul 12 20:41:10 2017 +0200
+++ b/ObjectMemory.st	Mon Jul 31 21:56:25 2017 +0100
@@ -4628,12 +4628,10 @@
     "evaluates aBlock for all pages in the prev. oldSpace, passing
      the pages address as argument.
      For internal & debugging use only."
-%{
-    if (__collectedOldSpacePagesDo(&aBlock) < 0) {
-	RETURN (false);
-    }
-%}.
-    ^ true
+
+    <resource: #obsolete>
+
+    ^ self error: 'Not supported since Smalltalk/X 8.0.0'.
 !
 
 newSpacePagesDo:aBlock