--- a/Class.st	Fri Nov 01 20:39:35 1996 +0100
+++ b/Class.st	Fri Nov 01 20:42:14 1996 +0100
@@ -2240,8 +2240,8 @@
         anySourceRef ifTrue:[
             s := self sourceStream.
             s notNil ifTrue:[
-                mySourceFileID := s pathName asFilename info at:#id.
-                sameFile := (fileName info at:#id) == mySourceFileID.
+                mySourceFileID := s pathName asFilename info id.
+                sameFile := (fileName info id) == mySourceFileID.
                 s close.
             ] ifFalse:[
                 classFilename notNil ifTrue:[
@@ -2256,7 +2256,7 @@
                     sameFile := (fileNameString = mySourceFileName).
                     sameFile ifFalse:[
                         mySourceFileName notNil ifTrue:[
-                            sameFile := (fileName info at:#id) == (mySourceFileName asFilename info at:#id)
+                            sameFile := (fileName info id) == (mySourceFileName asFilename info id)
                         ]
                     ].
                 ]
@@ -2304,8 +2304,8 @@
     "
     self addChangeRecordForClassFileOut:self
 
-    "Modified: 19.3.1996 / 19:43:17 / cg"
     "Modified: 7.6.1996 / 09:14:43 / stefan"
+    "Modified: 1.11.1996 / 20:23:57 / cg"
 !
 
 fileOutAllDefinitionsOn:aStream
@@ -4259,6 +4259,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.200 1996-10-30 19:28:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.201 1996-11-01 19:42:14 cg Exp $'
 ! !
 Class initialize!