--- a/ObjFHandle.st	Tue Dec 05 18:52:15 1995 +0100
+++ b/ObjFHandle.st	Tue Dec 05 20:17:25 1995 +0100
@@ -54,8 +54,10 @@
 update:something with:aParameter from:changedObject
     "my method/class object was collected - unload the underlying objectfile"
 
-    'unloading objectfiles for collected methods/classes' infoPrintNL.
-    ObjectFileLoader unloadAllObsoleteObjectFiles
+    self isObsolete ifTrue:[
+	('OBJFLOADER: unloading ' , pathName , '  (method/classes were garbageCollected)') infoPrintNL.
+	ObjectFileLoader unloadObjectFile:pathName
+    ].
 
     "Created: 5.12.1995 / 18:05:08 / cg"
 ! !
@@ -193,5 +195,5 @@
 !ObjectFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.9 1995-12-05 17:52:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.10 1995-12-05 19:17:25 cg Exp $'
 ! !

--- a/ObjectFileHandle.st	Tue Dec 05 18:52:15 1995 +0100
+++ b/ObjectFileHandle.st	Tue Dec 05 20:17:25 1995 +0100
@@ -54,8 +54,10 @@
 update:something with:aParameter from:changedObject
     "my method/class object was collected - unload the underlying objectfile"
 
-    'unloading objectfiles for collected methods/classes' infoPrintNL.
-    ObjectFileLoader unloadAllObsoleteObjectFiles
+    self isObsolete ifTrue:[
+	('OBJFLOADER: unloading ' , pathName , '  (method/classes were garbageCollected)') infoPrintNL.
+	ObjectFileLoader unloadObjectFile:pathName
+    ].
 
     "Created: 5.12.1995 / 18:05:08 / cg"
 ! !
@@ -193,5 +195,5 @@
 !ObjectFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.9 1995-12-05 17:52:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.10 1995-12-05 19:17:25 cg Exp $'
 ! !