--- a/Class.st	Thu Nov 17 16:43:40 1994 +0100
+++ b/Class.st	Mon Nov 21 17:38:50 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.23 1994-11-17 14:11:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.24 1994-11-21 16:38:50 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.23 1994-11-17 14:11:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.24 1994-11-21 16:38:50 claus Exp $
 "
 !
 
@@ -789,18 +789,16 @@
 
     |aStream fileName|
 
-    UpdatingChanges ifTrue:[
-	fileName := ObjectMemory nameForSources.
-	aStream := FileStream oldFileNamed:fileName.
+    fileName := ObjectMemory nameForSources.
+    aStream := FileStream oldFileNamed:fileName.
+    aStream isNil ifTrue:[
+	aStream := FileStream newFileNamed:fileName.
 	aStream isNil ifTrue:[
-	    aStream := FileStream newFileNamed:fileName.
-	    aStream isNil ifTrue:[
-		Transcript showCr:'cannot update sources file'.
-		^ nil
-	    ]
-	].
-	aStream setToEnd
+	    Transcript showCr:'cannot update sources file'.
+	    ^ nil
+	]
     ].
+    aStream setToEnd.
     ^ aStream
 !