--- a/ExtFunc.st	Fri Jul 12 15:50:24 1996 +0200
+++ b/ExtFunc.st	Fri Jul 12 15:51:45 1996 +0200
@@ -309,18 +309,12 @@
 
 !ExternalFunction methodsFor:'private loader access'!
 
-setModuleHandle:aHandle
-    "set the moduleHandle.
+setName:aString moduleHandle:aHandle
+    "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
 
+    name := aString.
     moduleHandle := aHandle
-!
-
-setName:aString
-    "set the functions name.
-     This is a private interface for the objectFileLoader; not for public use."
-
-    name := aString
 ! !
 
 !ExternalFunction methodsFor:'function calling'!
@@ -449,6 +443,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.10 1996-07-12 13:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtFunc.st,v 1.11 1996-07-12 13:51:45 cg Exp $'
 ! !
 ExternalFunction initialize!

--- a/ExternalFunction.st	Fri Jul 12 15:50:24 1996 +0200
+++ b/ExternalFunction.st	Fri Jul 12 15:51:45 1996 +0200
@@ -309,18 +309,12 @@
 
 !ExternalFunction methodsFor:'private loader access'!
 
-setModuleHandle:aHandle
-    "set the moduleHandle.
+setName:aString moduleHandle:aHandle
+    "set the name & moduleHandle.
      This is a private interface for the objectFileLoader; not for public use."
 
+    name := aString.
     moduleHandle := aHandle
-!
-
-setName:aString
-    "set the functions name.
-     This is a private interface for the objectFileLoader; not for public use."
-
-    name := aString
 ! !
 
 !ExternalFunction methodsFor:'function calling'!
@@ -449,6 +443,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.10 1996-07-12 13:50:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.11 1996-07-12 13:51:45 cg Exp $'
 ! !
 ExternalFunction initialize!