--- a/ObjFHandle.st	Thu Jan 09 12:39:58 1997 +0100
+++ b/ObjFHandle.st	Fri Jan 10 15:49:54 1997 +0100
@@ -170,19 +170,20 @@
     "my method/class object was collected - unload the underlying objectfile"
 
     something == weakMethodRef ifTrue:[
-	weakMethodRef nilAllCorpsesAndDo:[:idx |].
+        weakMethodRef nilAllCorpsesAndDo:[:idx |].
     ].
 
     something == weakClassRefs ifTrue:[
-	weakClassRefs nilAllCorpsesAndDo:[:idx |].
+        weakClassRefs nilAllCorpsesAndDo:[:idx |].
     ].
 
     self isObsolete ifTrue:[
-	('OBJFLOADER: unloading ' , pathName , '  (method/classes were garbageCollected)') infoPrintNL.
-	ObjectFileLoader unloadObjectFile:pathName
+        ('ObjectFileHandle [info]: unloading ' , pathName , '  (method/classes were garbageCollected)') infoPrintCR.
+        ObjectFileLoader unloadObjectFile:pathName
     ].
 
     "Created: 5.12.1995 / 18:05:08 / cg"
+    "Modified: 10.1.1997 / 14:58:36 / cg"
 ! !
 
 !ObjectFileHandle methodsFor:'copying'!
@@ -349,5 +350,5 @@
 !ObjectFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.20 1996-10-22 19:34:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFHandle.st,v 1.21 1997-01-10 14:49:25 cg Exp $'
 ! !