--- a/Class.st	Mon Apr 23 15:00:22 2001 +0200
+++ b/Class.st	Mon Apr 23 23:28:08 2001 +0200
@@ -13,11 +13,11 @@
 "{ Package: 'stx:libbasic' }"
 
 ClassDescription subclass:#Class
-        instanceVariableNames:'name category classvars comment subclasses classFilename package
-                revision primitiveSpec environment signature hook'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Kernel-Classes'
+	instanceVariableNames:'name category classvars comment subclasses classFilename package
+		revision primitiveSpec environment signature hook'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Classes'
 !
 
 !Class class methodsFor:'documentation'!
@@ -2006,12 +2006,12 @@
         "/ a private class
         aStream nextPutAll:'privateIn:'.
         syntaxHilighting ifTrue:[aStream bold].
-"/        fullName ifTrue:[
-"/            s := owner name.
-"/        ] ifFalse:[
-"/            s := owner nameWithoutNameSpacePrefix.
-"/        ].
-        s := owner nameWithoutNameSpacePrefix.
+        fullName ifTrue:[
+            s := owner name.
+        ] ifFalse:[
+            s := owner nameWithoutNameSpacePrefix.
+        ].
+"/        s := owner nameWithoutNameSpacePrefix.
         aStream nextPutAll:s.
         syntaxHilighting ifTrue:[aStream normal].
     ].
@@ -3232,7 +3232,7 @@
     "append a class-definition-record to aStream"
 
     aClass isLoaded ifTrue:[
-        aClass fileOutDefinitionOn:aStream.
+        aClass basicFileOutDefinitionOn:aStream withNameSpace:true.
         aStream nextPutChunkSeparator.
         Project notNil ifTrue:[
             Project addClassDefinitionChangeFor:aClass 
@@ -4586,5 +4586,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.394 2001-02-07 17:23:29 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.395 2001-04-23 21:28:08 cg Exp $'
 ! !