--- a/Metaclass.st	Wed Apr 23 17:00:59 1997 +0200
+++ b/Metaclass.st	Wed Apr 23 17:14:38 1997 +0200
@@ -828,7 +828,9 @@
 
     (oldClass isNil or:[oldClass isLoaded not]) ifTrue:[
         (oldClass isNil and:[changed]) ifTrue:[
-            self addChangeRecordForClass:newClass.
+            aClass ~~ Autoload ifTrue:[
+                self addChangeRecordForClass:newClass.
+            ]
         ].
 
         commentString notNil ifTrue:[
@@ -1297,7 +1299,7 @@
 
     "Created: 26.5.1996 / 11:55:26 / cg"
     "Modified: 18.6.1996 / 14:19:39 / stefan"
-    "Modified: 3.3.1997 / 13:41:34 / cg"
+    "Modified: 23.4.1997 / 17:14:17 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1782,5 +1784,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.109 1997-04-18 14:41:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.110 1997-04-23 15:14:38 cg Exp $'
 ! !