--- a/NameSpace.st	Thu Dec 03 11:19:47 2009 +0100
+++ b/NameSpace.st	Thu Dec 03 11:42:57 2009 +0100
@@ -280,8 +280,8 @@
 defineNameSpace:nameSymbol private:private imports:imports category:category
     |newNameSpace|
 
-    private ifTrue:[self halt].     "/ what to do ?
-    imports withoutSeparators notEmpty ifTrue:[self halt].     "/ what to do ?
+    private ifTrue:[self shouldImplement].     "/ what to do ?
+    imports withoutSeparators notEmpty ifTrue:[self shouldImplement].     "/ what to do ?
     newNameSpace := NameSpace name:nameSymbol.
     newNameSpace setCategory:category.    
     ^ newNameSpace
@@ -638,5 +638,9 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.68 2009-09-25 19:02:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009-12-03 10:42:57 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009-12-03 10:42:57 stefan Exp $'
 ! !