--- a/ExternalFunction.st	Fri Jul 12 23:45:32 1996 +0200
+++ b/ExternalFunction.st	Mon Jul 15 08:37:06 1996 +0200
@@ -106,7 +106,7 @@
 %}   
 ! !
 
-!ExternalFunction class methodsFor:'documentation'!
+!ExternalFunction  class methodsFor:'documentation'!
 
 copyright
 "
@@ -205,7 +205,7 @@
 "
 ! !
 
-!ExternalFunction class methodsFor:'initialization'!
+!ExternalFunction  class methodsFor:'initialization'!
 
 initialize
     "create signals"
@@ -219,7 +219,7 @@
     "Modified: 22.4.1996 / 18:08:55 / cg"
 ! !
 
-!ExternalFunction class methodsFor:'Signal constants'!
+!ExternalFunction  class methodsFor:'Signal constants'!
 
 invalidCustomFunctionSignal
     "return the signal raised when a non existent custom function is
@@ -228,7 +228,7 @@
     ^ InvalidCustomFunctionSignal
 ! !
 
-!ExternalFunction class methodsFor:'calling custom functions'!
+!ExternalFunction  class methodsFor:'calling custom functions'!
 
 callCustomFunction:nr
     "call the custom function #nr without arguments"
@@ -382,7 +382,7 @@
     "
 ! !
 
-!ExternalFunction class methodsFor:'queries'!
+!ExternalFunction  class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -408,16 +408,6 @@
     ^ name
 ! !
 
-!ExternalFunction methodsFor:'private loader access'!
-
-setName:aString moduleHandle:aHandle
-    "set the name & moduleHandle.
-     This is a private interface for the objectFileLoader; not for public use."
-
-    name := aString.
-    moduleHandle := aHandle
-! !
-
 !ExternalFunction methodsFor:'function calling'!
 
 call
@@ -620,9 +610,50 @@
     self primitiveFailed
 ! !
 
-!ExternalFunction class methodsFor:'documentation'!
+!ExternalFunction methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation of the receiver to aStream"
+
+    |addr|
+
+    name isNil ifTrue:[^ super printOn:aStream].
+
+    aStream nextPutAll:self class name; nextPutAll:'(name: ''';
+            nextPutAll:name; nextPutAll:''' address: '.
+
+    addr := self code.
+    addr isNil ifTrue:[
+        aStream nextPutAll:'** unloaded **'
+    ] ifFalse:[
+        aStream nextPutAll:'0x';
+                nextPutAll:(addr hexPrintString)
+    ].
+
+    moduleHandle notNil ifTrue:[
+        aStream nextPutAll:' from: '''; 
+                nextPutAll:(moduleHandle pathName asFilename baseName);
+                nextPutAll:''''.
+    ].
+
+    aStream nextPutAll:')'
+
+    "Modified: 12.7.1996 / 23:31:49 / cg"
+! !
+
+!ExternalFunction methodsFor:'private loader access'!
+
+setName:aString moduleHandle:aHandle
+    "set the name & moduleHandle.
+     This is a private interface for the objectFileLoader; not for public use."
+
+    name := aString.
+    moduleHandle := aHandle
+! !
+
+!ExternalFunction  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.12 1996-07-12 21:44:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.13 1996-07-15 06:37:06 cg Exp $'
 ! !
 ExternalFunction initialize!