--- a/VersionDiffBrowser.st	Thu Jan 18 17:18:35 2018 +0100
+++ b/VersionDiffBrowser.st	Thu Jan 18 19:07:03 2018 +0100
@@ -2297,20 +2297,20 @@
 !
 
 updateLists
-    "walk over the changeSet and setup the 3 lists:
+    "walk over the changeSet(s) and setup the 3 lists:
      onlyInA, changed, onlyInB,
      Optionally filter extensions, categoryChanges and versionMethods,
      changes with same semantic (variable renames)
      and changes which have been explicitly filtered by the user."
 
     |listOnlyInA listOnlyInB listChanged
-     printStringGenerator sortBlockForChangeLists filteredList
+     printStringGenerator "sortBlockForChangeLists" filteredList
      numIgnoredExtensions numIgnoredVersionMethods 
      info needFilter entryIsForCommentOrFormatOnly
      isIgnoredChange isIgnored1 isIgnored2 isIgnored3 isIgnored4 isIgnored5|
 
     printStringGenerator := [:aChange | self printStringForChange:aChange].
-    sortBlockForChangeLists := [:a :b | (printStringGenerator value:a) < (printStringGenerator value:b)].
+    "/ sortBlockForChangeLists := [:a :b | (printStringGenerator value:a) < (printStringGenerator value:b)].
 
     numIgnoredExtensions := numIgnoredVersionMethods := 0.
     needFilter := self includeExtensions not