--- a/ChangesBrowser.st	Mon Dec 15 14:36:38 2008 +0100
+++ b/ChangesBrowser.st	Tue Dec 16 12:08:35 2008 +0100
@@ -23,7 +23,7 @@
 		showingDiffs diffViewBox autoloadAsRequired
 		classesNotToBeAutoloaded encodingIfKnown'
 	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs
-		DefaultAutoCompare DefaultShowingDiffs'
+		DefaultAutoCompare DefaultShowingDiffs LastEnforcedNameSpace'
 	poolDictionaries:''
 	category:'Interface-Browsers'
 !
@@ -5314,20 +5314,20 @@
 
     nsName := Dialog
                 request:'When applying, new classes are created in nameSpace:'
-                initialAnswer:(enforcedNameSpace ? Class nameSpaceQuerySignal query name)
+                initialAnswer:(enforcedNameSpace ? LastEnforcedNameSpace ? Class nameSpaceQuerySignal query name)
                 list:listOfKnownNameSpaces.
     nsName isNil ifTrue:[^ self].
 
     (nsName isEmpty or:[nsName = 'Smalltalk']) ifTrue:[
         applyInOriginalNameSpace value:true.
-        enforcedNameSpace := nil.
+        LastEnforcedNameSpace := enforcedNameSpace := nil.
     ] ifFalse:[
         applyInOriginalNameSpace value:false.
-        enforcedNameSpace := NameSpace name:nsName.
+        LastEnforcedNameSpace := enforcedNameSpace := NameSpace name:nsName.
         autoCompare value ifTrue:[
             self doUpdate
         ].
-    ]
+    ].
 
     "Modified: / 07-09-2006 / 15:10:25 / cg"
 !
@@ -6015,5 +6015,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.385 2008-10-31 14:26:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.386 2008-12-16 11:08:35 cg Exp $'
 ! !