--- a/NameSpace.st	Fri Nov 08 14:44:16 1996 +0100
+++ b/NameSpace.st	Fri Nov 08 15:11:11 1996 +0100
@@ -186,7 +186,11 @@
 !Namespace class methodsFor:'fileOut'!
 
 basicFileOutDefinitionOn:aStream
-    aStream nextPutAll:('Namespace name:' , self name storeString)
+    self == Namespace ifTrue:[
+	super basicFileOutDefinitionOn:aStream
+    ] ifFalse:[
+        aStream nextPutAll:('Namespace name:' , self name storeString)
+    ]
 ! !
 
 !Namespace class methodsFor:'queries'!
@@ -200,5 +204,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.7 1996-11-08 13:44:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.8 1996-11-08 14:11:11 cg Exp $'
 ! !