--- a/ExternalFunction.st	Tue Apr 16 11:29:01 1996 +0200
+++ b/ExternalFunction.st	Tue Apr 16 11:30:18 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 ExecutableFunction subclass:#ExternalFunction
-	 instanceVariableNames:''
-	 classVariableNames:'InvalidCustomFunctionSignal'
-	 poolDictionaries:''
-	 category:'System-Support'
+	instanceVariableNames:''
+	classVariableNames:'InvalidCustomFunctionSignal'
+	poolDictionaries:''
+	category:'System-Support'
 !
 
 !ExternalFunction primitiveFunctions!
@@ -241,6 +241,16 @@
     "
 ! !
 
+!ExternalFunction class methodsFor:'queries'!
+
+isBuiltInClass
+    "this class is known by the run-time-system"
+
+    ^ self == ExternalFunction
+
+    "Created: 16.4.1996 / 11:24:50 / cg"
+! !
+
 !ExternalFunction methodsFor:'function calling'!
 
 call
@@ -367,6 +377,6 @@
 !ExternalFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.4 1996-04-02 22:00:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.5 1996-04-16 09:30:18 cg Exp $'
 ! !
 ExternalFunction initialize!