--- a/NameSpace.st	Wed Nov 06 21:42:04 1996 +0100
+++ b/NameSpace.st	Wed Nov 06 21:42:22 1996 +0100
@@ -11,7 +11,7 @@
 "
 
 
-Class subclass:#Namespace
+Object subclass:#Namespace
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -59,13 +59,16 @@
 !Namespace class methodsFor:'instance creation'!
 
 name:aSymbol
+    "create a new nameSpace, named aSymbol"
+
     |newNamespace|
 
-    newNamespace := super new.
-    newNamespace setName:aSymbol.
-    newNamespace category:'* namespaces *'.
-    Smalltalk at:aSymbol put:newNamespace.
-    Smalltalk changed.
+    newNamespace := self subclass:aSymbol
+			 instanceVariableNames:''
+			 classVariableNames:''
+			 poolDictionaries:''
+			 category:(aSymbol , ' (* namespace *)').
+
     ^ newNamespace
 
     "
@@ -78,7 +81,7 @@
     self error:'namespaces are not to be created with new'
 ! !
 
-!Namespace methodsFor:'accessing'!
+!Namespace class methodsFor:'accessing'!
 
 at:classNameSymbol
     ^ self privateClassesAt:classNameSymbol
@@ -98,7 +101,7 @@
     ^ self privateClassesAt:classNameSymbol put:aClass
 ! !
 
-!Namespace methodsFor:'enumerating'!
+!Namespace class methodsFor:'enumerating'!
 
 allBehaviorsDo:aBlock
     self privateClassesDo:aBlock
@@ -106,13 +109,13 @@
     "Created: 26.10.1996 / 12:29:01 / cg"
 ! !
 
-!Namespace methodsFor:'fileOut'!
+!Namespace class methodsFor:'fileOut'!
 
 basicFileOutDefinitionOn:aStream
-    aStream nextPutAll:('Namespace name:' , name storeString)
+    aStream nextPutAll:('Namespace name:' , self name storeString)
 ! !
 
-!Namespace methodsFor:'queries'!
+!Namespace class methodsFor:'queries'!
 
 isNamespace
     ^ true
@@ -123,5 +126,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.4 1996-11-05 22:21:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.5 1996-11-06 20:42:22 cg Exp $'
 ! !