--- a/Class.st	Thu Nov 07 21:04:15 1996 +0100
+++ b/Class.st	Fri Nov 08 14:14:24 1996 +0100
@@ -2214,22 +2214,33 @@
 basicFileOutDefinitionOn:aStream
     "append an expression on aStream, which defines myself."
 
-    |s owner|
+    |s owner ns|
 
     owner := self owningClass.
+    ns := self namespace.
+
+    owner isNil and:[
+        (ns notNil and:[ns ~~ Smalltalk]) ifTrue:[
+            aStream nextPutAll:'"{ Namespace: ''' , ns name , ''' }"'; cr; cr.
+        ]
+    ].
 
     "take care of nil-superclass"
     superclass isNil ifTrue:[
         s := 'nil'
     ] ifFalse:[
-        s := (superclass name)
+        ns == superclass namespace ifTrue:[
+            s := superclass nameWithoutPrefix
+        ] ifFalse:[
+            s := superclass name
+        ]
     ].
 
     aStream nextPutAll:s.
     aStream space.
     self basicFileOutInstvarTypeKeywordOn:aStream.
     owner isNil ifTrue:[
-        aStream nextPutAll:name storeString.
+        aStream nextPut:$#; nextPutAll:(self nameWithoutPrefix).
     ] ifFalse:[
         aStream nextPut:$#; nextPutAll:(self nameWithoutPrefix).
     ].
@@ -2264,7 +2275,7 @@
     ].
     aStream cr
 
-    "Modified: 15.10.1996 / 20:01:23 / cg"
+    "Modified: 8.11.1996 / 13:30:09 / cg"
 !
 
 basicFileOutInstvarTypeKeywordOn:aStream
@@ -2904,6 +2915,7 @@
     "/ methods from all categories in metaclass (i.e. class methods)
     "/ EXCEPT: the version method is placed at the very end, to
     "/         avoid sourcePosition-shifts when checked out later.
+    "/         (RCS expands this string, so its size is not constant)
     "/
     collectionOfCategories := meta categories asSortedCollection.
     collectionOfCategories notNil ifTrue:[
@@ -2982,7 +2994,7 @@
     ]
 
     "Created: 15.11.1995 / 12:53:06 / cg"
-    "Modified: 15.10.1996 / 11:25:59 / cg"
+    "Modified: 8.11.1996 / 14:02:31 / cg"
 !
 
 fileOutPrimitiveDefinitionsOn:aStream
@@ -3045,8 +3057,14 @@
     idx := nm lastIndexOf:$:.
     ^ nm copyFrom:idx+1.
 
-    "Created: 15.10.1996 / 20:01:39 / cg"
-    "Modified: 15.10.1996 / 20:02:13 / cg"
+    "
+     Array name      
+     Array nameWithoutPrefix     
+     CodingExamples_Views::DrawArcDemo1 name 
+     CodingExamples_Views::DrawArcDemo1 nameWithoutPrefix  
+    "
+
+    "Modified: 8.11.1996 / 13:20:01 / cg"
 !
 
 printClassNameOn:aStream
@@ -4461,6 +4479,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.211 1996-11-07 20:03:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.212 1996-11-08 13:14:24 cg Exp $'
 ! !
 Class initialize!