--- a/ChangeSetBrowser.st	Sun Oct 04 18:48:21 2009 +0200
+++ b/ChangeSetBrowser.st	Sun Oct 04 19:42:03 2009 +0200
@@ -769,8 +769,19 @@
             ].
         ].
     ].
+    enforcedNameSpace notNil ifTrue:[
+        |sav|
 
-    aChange apply.
+        [
+            sav := aChange className.
+            aChange class:(enforcedNameSpace classNamed:sav).
+            aChange apply.
+        ] ensure:[
+            aChange className:sav
+        ].
+    ] ifFalse:[
+        aChange apply.
+    ].
 
     "Modified: / 03-03-2007 / 10:29:50 / cg"
 !
@@ -991,9 +1002,13 @@
     |change class selector oldMethod newSource oldSource|
 
     change := changeSet at:changeNr.
-    change isMethodChange ifTrue:[
+    (change isMethodChange and:[change isMethodCodeChange]) ifTrue:[
         newSource := change source.
-        class := change changeClass.
+        enforcedNameSpace notNil ifTrue:[
+            class := enforcedNameSpace classNamed:change className.
+        ] ifFalse:[
+            class := change changeClass.
+        ].
         class notNil ifTrue:[
             selector := change changeSelector.
             selector notNil ifTrue:[
@@ -1013,9 +1028,9 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.51 2009-10-04 16:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.52 2009-10-04 17:42:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.51 2009-10-04 16:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.52 2009-10-04 17:42:03 cg Exp $'
 ! !