--- a/ExternalFunction.st	Thu Jun 22 17:23:14 2006 +0200
+++ b/ExternalFunction.st	Thu Jun 22 18:14:33 2006 +0200
@@ -955,6 +955,13 @@
     moduleHandle := nil.
 !
 
+setModuleHandle:aHandle
+    "set the moduleHandle.
+     This is a private interface for the objectFileLoader; not for public use."
+
+    moduleHandle := aHandle
+!
+
 setName:aString moduleHandle:aHandle
     "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
@@ -966,7 +973,7 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.25 2006-06-22 15:21:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.26 2006-06-22 16:14:33 ca Exp $'
 ! !
 
 ExternalFunction initialize!