--- a/ObjectMemory.st	Fri Jan 24 21:58:45 1997 +0100
+++ b/ObjectMemory.st	Fri Jan 24 23:11:36 1997 +0100
@@ -616,7 +616,7 @@
         MallocFailureSignal nameClass:self message:#mallocFailureSignal.
         MallocFailureSignal notifierString:'(malloc) allocation failure'.
 
-        LowSpaceSemaphore := Semaphore new.
+        LowSpaceSemaphore := Semaphore new name:'LowSpaceSemaphore'
     ].
     DisposeInterruptHandler := self.
     IncrementalGCLimit := 500000.
@@ -2960,7 +2960,7 @@
 	^ self
     ].
 
-    FinalizationSemaphore := Semaphore new.
+    FinalizationSemaphore := Semaphore new name:'FinalizationSemaphore'.
 
     p :=
 	[
@@ -3983,6 +3983,6 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.133 1997-01-24 20:44:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.134 1997-01-24 22:10:08 cg Exp $'
 ! !
 ObjectMemory initialize!