--- a/Tools__ChangeList.st	Wed Nov 13 21:29:44 2013 +0000
+++ b/Tools__ChangeList.st	Thu Nov 14 15:42:14 2013 +0000
@@ -29,7 +29,8 @@
 
 BrowserListWithFilter subclass:#ChangeList
 	instanceVariableNames:'listHolder showRemovedHolder showSameHolder showTimestampHolder
-                allowRemoveHolder allowAcceptHolder scrollToBottom applyAction showConflictsOnlyHolder'
+		allowRemoveHolder allowAcceptHolder scrollToBottom applyAction
+		showConflictsOnlyHolder'
 	classVariableNames:'LastSelectionConditionString'
 	poolDictionaries:''
 	category:'Interface-Browsers-ChangeSet'
@@ -815,10 +816,6 @@
 
 !ChangeList methodsFor:'event processing'!
 
-
-
-
-
 handlesKeyPress:key inView:aView
     <resource: #keyboard (#Accept #Ctrls)>
 
@@ -1308,10 +1305,17 @@
 changeSource
     "the changes source"
 
-    ^change changeSource
+    "/ Hack to make sure code is displayed in similar way
+    "/ (i.e., with no namespace pragma)
+    ^ (change isClassDefinitionChange and:[change isPrivateClassDefinitionChange]) ifTrue:[
+        change definitionStringInNamespace: nil.
+    ] ifFalse:[
+        change changeSource.
+    ].
 
     "Created: / 19-07-2011 / 12:03:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 25-07-2012 / 17:39:39 / cg"
+    "Modified: / 14-11-2013 / 14:55:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 children