--- a/FileBrowser.st	Fri Aug 09 17:20:17 2002 +0200
+++ b/FileBrowser.st	Fri Aug 09 17:30:02 2002 +0200
@@ -2302,11 +2302,25 @@
 fileFileInToNameSpace
     "fileIn the selected file(s)<into a nameSpace"
 
-    |ns|
-
-    ns := Dialog request:'Default NameSpace for fileIn ?'.
-    ns isEmptyOrNil ifTrue:[^  self].
+    |ns listOfKnownNameSpaces|
+
+    listOfKnownNameSpaces := Set new.
+    NameSpace 
+        allNamespaces 
+            do:[:eachNameSpace | 
+                listOfKnownNameSpaces add:eachNameSpace name
+            ].
+    listOfKnownNameSpaces := listOfKnownNameSpaces asOrderedCollection sort.
+
+    ns := Dialog 
+                request:'During fileIn, new classes are created in nameSpace:'
+                initialAnswer:("lastEnforcedNameSpace ? "Class nameSpaceQuerySignal query name)
+                list:listOfKnownNameSpaces.
+    ns isEmptyOrNil ifTrue:[^ self].
+
+    "/ lastEnforcedNameSpace := ns.
     ns := NameSpace name:ns.
+
     Class nameSpaceQuerySignal 
         answer:ns
         do:[ self fileFileInLazy:false ] 
@@ -7909,5 +7923,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.483 2002-08-01 17:10:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.484 2002-08-09 15:30:02 cg Exp $'
 ! !