--- a/Class.st	Wed Aug 16 17:28:58 1995 +0200
+++ b/Class.st	Wed Aug 16 20:27:03 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.53 1995-08-16 18:26:01 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.52 1995-08-15 18:54:02 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.53 1995-08-16 18:26:01 claus Exp $
 "
 !
 
@@ -754,7 +754,11 @@
 	self notify:'cannot create temporary file.'.
 	^ nil
     ].
-    self fileOutOn:aStream.
+    FileOutErrorSignal handle:[:ex |
+	aStream nextPutAll:'"no source available"'.
+    ] do:[
+        self fileOutOn:aStream.
+    ].
     aStream close.
     aStream := FileStream oldFileNamed:'__temp'.
     aStream isNil ifTrue:[
@@ -1997,7 +2001,8 @@
 	    "
 	     no source available - trigger an error
 	    "
-	    self error:'no source for class ' , name , ' available. Cannot fileOut'.
+	    FileOutErrorSignal
+		raiseRequestWith:'no source for class ' , name , ' available. Cannot fileOut'.
 	    ^ self
 	].
 	copyrightText := copyrightText asCollectionOfLines.