--- a/Class.st	Fri Aug 18 01:52:44 1995 +0200
+++ b/Class.st	Sat Aug 19 03:33:23 1995 +0200
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.53 1995-08-16 18:26:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.54 1995-08-19 01:32:24 claus Exp $
 '!
 
 !Class class methodsFor:'documentation'!
@@ -43,7 +43,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.53 1995-08-16 18:26:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.54 1995-08-19 01:32:24 claus Exp $
 "
 !
 
@@ -757,7 +757,7 @@
     FileOutErrorSignal handle:[:ex |
 	aStream nextPutAll:'"no source available"'.
     ] do:[
-        self fileOutOn:aStream.
+	self fileOutOn:aStream.
     ].
     aStream close.
     aStream := FileStream oldFileNamed:'__temp'.
@@ -1108,8 +1108,10 @@
 addChangeRecordForClass:aClass to:aStream
     "append a class-definition-record to aStream"
 
-    aClass fileOutDefinitionOn:aStream.
-    aStream nextPut:(aStream class chunkSeparator).
+    aClass isLoaded ifTrue:[
+	aClass fileOutDefinitionOn:aStream.
+	aStream nextPut:(aStream class chunkSeparator).
+    ]
 !
 
 addChangeRecordForClassInstvars:aClass to:aStream
@@ -1982,6 +1984,12 @@
 
     |collectionOfCategories copyrightText sep comment cls|
 
+    self isLoaded ifFalse:[
+	^ FileOutErrorSignal 
+	    raiseRequestWith:self
+		 errorString:'will not fileOut unloaded classes'
+    ].
+
     "
      if there is a copyright method, add a copyright comment
      at the beginning, taking the string from the copyright method.