--- a/CompiledCode.st	Tue Apr 16 11:27:45 1996 +0200
+++ b/CompiledCode.st	Tue Apr 16 11:28:05 1996 +0200
@@ -11,11 +11,11 @@
 "
 
 ExecutableFunction subclass:#CompiledCode
-	 instanceVariableNames:'flags byteCode literals'
-	 classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal
-                BadLiteralsSignal NonBooleanReceiverSignal ArgumentSignal'
-	 poolDictionaries:''
-	 category:'Kernel-Methods'
+	instanceVariableNames:'flags byteCode literals'
+	classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal
+		BadLiteralsSignal NonBooleanReceiverSignal ArgumentSignal'
+	poolDictionaries:''
+	category:'Kernel-Methods'
 !
 
 !CompiledCode class methodsFor:'documentation'!
@@ -61,10 +61,6 @@
 
     NOTICE: layout known by runtime system and compiler - do not change
 "
-!
-
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.22 1996-04-02 22:00:16 cg Exp $'
 ! !
 
 !CompiledCode class methodsFor:'initialization'!
@@ -117,7 +113,9 @@
 isBuiltInClass
     "this class is known by the run-time-system"
 
-    ^ true
+    ^ self == CompiledCode
+
+    "Modified: 16.4.1996 / 11:25:40 / cg"
 ! !
 
 !CompiledCode methodsFor:'accessing'!
@@ -312,4 +310,9 @@
     "
 ! !
 
+!CompiledCode class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.23 1996-04-16 09:28:05 cg Exp $'
+! !
 CompiledCode initialize!