--- a/Class.st	Mon Oct 14 17:59:28 1996 +0200
+++ b/Class.st	Mon Oct 14 18:16:20 1996 +0200
@@ -1765,7 +1765,7 @@
 basicFileOutDefinitionOn:aStream
     "append an expression on aStream, which defines myself."
 
-    |s|
+    |s owner|
 
     "take care of nil-superclass"
     superclass isNil ifTrue:[
@@ -1777,8 +1777,7 @@
     aStream nextPutAll:s.
     aStream space.
     self basicFileOutInstvarTypeKeywordOn:aStream.
-    aStream nextPut:$#.
-    aStream nextPutAll:name.
+    aStream nextPutAll:name storeString.
 
     aStream crtab. 
     aStream nextPutAll:'instanceVariableNames:'''.
@@ -1794,16 +1793,23 @@
     aStream nextPutAll:'poolDictionaries:'''''.
 
     aStream crtab.
-    aStream nextPutAll:'category:'.
-    category isNil ifTrue:[
-        s := ''''''
+    (owner := self owningClass) isNil ifTrue:[
+        "/ a public class
+        aStream nextPutAll:'category:'.
+        category isNil ifTrue:[
+            s := ''''''
+        ] ifFalse:[
+            s := category asString storeString
+        ].
+        aStream nextPutAll:s.
     ] ifFalse:[
-        s := category asString storeString
+        "/ a private class
+        aStream nextPutAll:'privateIn:'.
+        aStream nextPutAll:owner name.
     ].
-    aStream nextPutAll:s.
     aStream cr
 
-    "Modified: 11.10.1996 / 18:58:42 / cg"
+    "Modified: 14.10.1996 / 17:07:40 / cg"
 !
 
 basicFileOutInstvarTypeKeywordOn:aStream
@@ -3760,6 +3766,6 @@
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.178 1996-10-12 19:15:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.179 1996-10-14 16:16:20 cg Exp $'
 ! !
 Class initialize!