--- a/ObjectMemory.st	Tue Aug 25 15:43:22 1998 +0200
+++ b/ObjectMemory.st	Tue Aug 25 15:57:27 1998 +0200
@@ -3633,6 +3633,14 @@
 
 !ObjectMemory class methodsFor:'low memory handling'!
 
+allocationFailed
+    "memory allocation has failed in the VM
+     This is triggered by the runtime system (or possibly by
+     a user primitive)"
+
+    ^ AllocationFailureSignal raise
+!
+
 memoryInterrupt
     "when a low-memory condition arises, ask all classes to
      remove possibly cached data. You may help the system a bit,
@@ -4889,6 +4897,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.170 1998-08-14 11:09:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.171 1998-08-25 13:57:27 cg Exp $'
 ! !
 ObjectMemory initialize!