--- a/ChangeSetBrowser.st	Mon Mar 15 12:23:32 2010 +0100
+++ b/ChangeSetBrowser.st	Fri Mar 19 13:15:09 2010 +0100
@@ -774,7 +774,8 @@
 
         [
             sav := aChange className.
-            aChange class:(enforcedNameSpace classNamed:sav).
+            Error ignoreIn:[ aChange class:(enforcedNameSpace classNamed:sav) ].
+            aChange className:(enforcedNameSpace name,'::',sav).
             aChange apply.
         ] ensure:[
             aChange className:sav
@@ -1028,9 +1029,9 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.52 2009-10-04 17:42:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.53 2010-03-19 12:15:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.52 2009-10-04 17:42:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.53 2010-03-19 12:15:09 cg Exp $'
 ! !