--- a/ObjectFileHandle.st	Wed Feb 23 11:21:44 2000 +0100
+++ b/ObjectFileHandle.st	Fri Feb 25 16:02:33 2000 +0100
@@ -330,7 +330,8 @@
         ^ (weakClassRefs findFirst:[:x | x notNil and:[x ~~ 0]]) == 0
     ].
     handleType == #methodObject ifTrue:[
-	ref := weakMethodRef at:1.
+        weakMethodRef isNil ifTrue:[^ true].
+        ref := weakMethodRef at:1.
         ^ ref isNil or:[ref == 0]
     ].
     handleType == #functionObject ifTrue:[
@@ -411,5 +412,5 @@
 !ObjectFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.26 1999-09-24 11:11:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.27 2000-02-25 15:02:33 ps Exp $'
 ! !