--- a/ClassDescription.st	Wed Mar 01 21:42:45 2000 +0100
+++ b/ClassDescription.st	Thu Mar 02 14:30:49 2000 +0100
@@ -33,14 +33,14 @@
 	privateIn:ClassDescription
 !
 
-ClassDescription::PackageRedefinition subclass:#ClassRedefinitionNotification
+ClassDescription::PackageRedefinition subclass:#MethodRedefinitionNotification
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:ClassDescription
 !
 
-ClassDescription::PackageRedefinition subclass:#MethodRedefinitionNotification
+ClassDescription::PackageRedefinition subclass:#ClassRedefinitionNotification
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -1115,22 +1115,22 @@
      the LockChangesFile settings 
      (recommended if multiple images operate on a common changes file)"
 
-    |streamType aStream fileName|
+    |streamType aStream fileName err|
 
     fileName := ObjectMemory nameForChanges.
     
     LockChangesFile ifTrue:[
-	streamType := LockedFileStream. 
+        streamType := LockedFileStream. 
     ] ifFalse:[
-	streamType := FileStream.
+        streamType := FileStream.
     ].
     aStream := streamType oldFileNamed:fileName.
     aStream isNil ifTrue:[
-	aStream := streamType newFileNamed:fileName.
-	aStream isNil ifTrue:[
-	    self warn:'cannot create/update the changes file'.
-	    ^ nil
-	]
+        aStream := streamType newFileNamed:fileName.
+        aStream isNil ifTrue:[
+            self warn:'cannot create/update the changes file (check permissions)'.
+            ^ nil
+        ]
     ].
     aStream setToEnd.
     ^ aStream
@@ -3554,21 +3554,21 @@
 
 ! !
 
+!ClassDescription::MethodRedefinitionNotification methodsFor:'queries'!
+
+description
+    ^ 'attempt to redefine method from different package'
+! !
+
 !ClassDescription::ClassRedefinitionNotification methodsFor:'queries'!
 
 description
     ^ 'attempt to redefine class from different package'
 ! !
 
-!ClassDescription::MethodRedefinitionNotification methodsFor:'queries'!
-
-description
-    ^ 'attempt to redefine method from different package'
-! !
-
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.97 2000-02-07 11:18:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.98 2000-03-02 13:30:49 cg Exp $'
 ! !
 ClassDescription initialize!