--- a/NameSpace.st	Mon Sep 15 22:39:26 1997 +0200
+++ b/NameSpace.st	Mon Sep 15 22:41:53 1997 +0200
@@ -11,7 +11,7 @@
 "
 
 
-'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 3:45:43 pm'                   !
+'From Smalltalk/X, Version:3.1.10 on 14-sep-1997 at 10:03:22 pm'                !
 
 Object subclass:#Namespace
 	instanceVariableNames:''
@@ -175,7 +175,7 @@
                          category:'uncategorized namespace'.
 
     "/ nameSpaces are not in any package
-    newNamespace setPackage:nil.
+    newNamespace notNil ifTrue:[newNamespace setPackage:nil].
     ^ newNamespace
 
     "
@@ -189,7 +189,7 @@
      Namespace name:'another::invalidName'
     "
 
-    "Modified: 16.1.1997 / 01:37:09 / cg"
+    "Modified: 14.9.1997 / 09:46:59 / cg"
 !
 
 new
@@ -331,5 +331,5 @@
 !Namespace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.24 1997-09-09 02:56:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.25 1997-09-15 20:41:51 cg Exp $'
 ! !