--- a/ExternalFunction.st	Thu Jun 22 17:20:04 2006 +0200
+++ b/ExternalFunction.st	Thu Jun 22 17:21:29 2006 +0200
@@ -950,6 +950,11 @@
 
 !ExternalFunction methodsFor:'private-loader access'!
 
+invalidate
+    super invalidate.
+    moduleHandle := nil.
+!
+
 setName:aString moduleHandle:aHandle
     "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
@@ -961,7 +966,7 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.24 2006-04-25 12:42:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.25 2006-06-22 15:21:29 ca Exp $'
 ! !
 
 ExternalFunction initialize!