--- a/ClassDescription.st Sun Jan 05 17:27:00 2020 +0100
+++ b/ClassDescription.st Sun Jan 05 17:29:15 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -1666,7 +1668,7 @@
[
changesStream := streamType fileNamed:fileName.
- ] on:FileStream openErrorSignal do:[:ex|
+ ] on:OpenError do:[:ex|
self warn:('%2\\Cannot create/update the changes file "%1"\please check the path and/or permissions' withCRs
bindWith:fileName with:ex description).
^ nil
@@ -2272,7 +2274,7 @@
[
aStream := fileName newReadWriteStream.
- ] on:FileStream openErrorSignal do:[:ex|
+ ] on:OpenError do:[:ex|
^ FileOutErrorSignal
raiseRequestWith:fileName name
errorString:(' - cannot create file:', fileName name)
@@ -2447,7 +2449,7 @@
[
aStream := fileName newReadWriteStream.
- ] on:FileStream openErrorSignal do:[:ex|
+ ] on:OpenError do:[:ex|
^ FileOutErrorSignal
raiseRequestWith:fileName name
errorString:(' - cannot create file:', fileName name)