--- a/Tools__NewSystemBrowser.st	Sun Feb 05 03:38:04 2017 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Feb 05 03:39:38 2017 +0100
@@ -16088,6 +16088,12 @@
             argument: GitSourceCodeManager
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'Compare two Repository Versions at Date or Tag...'
+            itemValue: projectMenuCompareTwoRepositoryVersionsUsingManagerNamed:
+            argument: GitSourceCodeManager
+          )
+         (MenuItem
             label: 'Compare Build Support File'
             submenuChannel: compareBuildSupportFileMenuUsingManagerNamed:
             argument: GitSourceCodeManager
@@ -16138,6 +16144,8 @@
         nil
         nil
       )
+
+    "Modified: / 04-02-2017 / 17:29:50 / cg"
 !
 
 projectMenuSCMCommon
@@ -16262,6 +16270,13 @@
             argument: SourceCodeManagerPlaceholder
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'Compare two Repository Versions at Date or Tag...'
+            itemValue: projectMenuCompareTwoRepositoryVersionsUsingManager:
+            translateLabel: true
+            argument: SourceCodeManagerPlaceholder
+          )
+         (MenuItem
             label: 'Compare Build Support File'
             translateLabel: true
             submenuChannel: projectMenuSCMCompareBuildSupportFileForManagerNamed:
@@ -16313,7 +16328,7 @@
       )
 
     "Modified: / 26-07-2012 / 12:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-10-2012 / 12:02:19 / cg"
+    "Modified: / 04-02-2017 / 17:29:06 / cg"
 !
 
 projectMenuSCMCompareBuildSupportFile
@@ -23616,9 +23631,11 @@
 
 methodIsSubclassResponsibility
     self selectedMethodsDo:[:eachMethod |
-        (eachMethod sends:#subclassResponsibility) ifTrue:[^ true].
+        (eachMethod sendsSelector:#subclassResponsibility) ifTrue:[^ true].
     ].
     ^ false.
+
+    "Modified: / 05-02-2017 / 01:25:29 / cg"
 !
 
 methodIsTestAndNotImplementedInSuperclass
@@ -23711,7 +23728,9 @@
 
     m := self theSingleSelectedMethod.
     m isNil ifTrue:[^ false].
-    ^ (m sends:#subclassResponsibility)
+    ^ (m sendsSelector:#subclassResponsibility)
+
+    "Modified: / 05-02-2017 / 01:25:36 / cg"
 !
 
 smallTeamAvailable
@@ -32066,7 +32085,7 @@
                 ].
                 dialog createInitializer ifTrue:[
                     inheritedInitializeMethod := cls theMetaclass responseTo:#new.
-                    (inheritedInitializeMethod isNil or:[ (inheritedInitializeMethod sends:#initialize) not ]) ifTrue:[
+                    (inheritedInitializeMethod isNil or:[ (inheritedInitializeMethod sendsSelector:#initialize) not ]) ifTrue:[
                         generator createInitializedInstanceCreationMethodsIn:theNonMetaclass
                     ] ifFalse:[
                         generator createInitializationMethodIn:theNonMetaclass
@@ -32085,7 +32104,7 @@
             ].
     ].
 
-    "Modified: / 29-12-2011 / 13:48:54 / cg"
+    "Modified: / 05-02-2017 / 01:25:26 / cg"
 !
 
 classMenuOpenTestRunner
@@ -33058,14 +33077,18 @@
     lbl2 := class2 name.
 
     (UserPreferences versionDiffViewerClass)
-          openOnClass:class1
-          labelA:lbl1
-          andClass:class2
-          labelB:lbl2
-          title:('comparing ' , lbl1 , ' against ' , lbl2)
+          openOnClass:class1 labelA:lbl1
+          andClass:class2 labelB:lbl2
+          title:('Diffs of %1 against %2' bindWith:lbl1 with:lbl2)
           ifSame:[ self information:'sources are identical' ].
 
     self normalLabel.
+
+    "
+     self new doCompareClass:Array withClass:ByteArray
+    "
+
+    "Modified (format): / 04-02-2017 / 20:02:54 / cg"
 !
 
 doCopyClass:aClass as:newClassName privateIn:ownerOrNil
@@ -33778,7 +33801,7 @@
 
     compile :=
         [:cls :sel :mthd |
-            (mthd sendsAny:#( #subclassResponsibility #subclassResponsibility:)) ifFalse:[
+            (mthd sendsAnySelector:#( #subclassResponsibility #subclassResponsibility:)) ifFalse:[
                 mthd hasPrimitiveCode ifFalse:[
                     firstMethod ifTrue:[
                         self showInfo:('Instrumenting ',aClass name,'...').
@@ -33813,11 +33836,11 @@
     doAsk ifTrue:[ self askForGlobalCoverageRecording ].
 
     "Created: / 10-08-2010 / 14:36:45 / cg"
-    "Modified: / 31-05-2012 / 10:36:42 / cg"
+    "Modified: / 05-02-2017 / 01:28:27 / cg"
 !
 
 recompileMethodWithInstrumentation:aMethod
-    (aMethod sends:#subclassResponsibility) ifFalse:[
+    (aMethod sendsSelector:#subclassResponsibility) ifFalse:[
         aMethod hasPrimitiveCode ifFalse:[
             aMethod mclass
                 recompile:aMethod selector
@@ -33826,6 +33849,7 @@
     ]
 
     "Created: / 10-08-2010 / 14:41:17 / cg"
+    "Modified: / 05-02-2017 / 01:25:33 / cg"
 !
 
 removeClasses:classesToRemove pullUpSubclasses:pullUpSubclasses
@@ -34241,12 +34265,12 @@
                                     isReference := (usedGlobals includes:sym) or:[usedGlobals includes:fullNameSym].
                                     isReference ifFalse:[
                                         (mthd referencesLiteral:classesNameSpace name) ifTrue:[
-                                            isReference := mthd sendsAny:#(#'at:' #'at:ifAbsent:' #'classNamed:')
+                                            isReference := mthd sendsAnySelector:#(#'at:' #'at:ifAbsent:' #'classNamed:')
                                         ].
                                         isReference ifFalse:[
                                             classesNameSpace ~= Smalltalk ifTrue:[
                                                 (mthd referencesLiteral:#Smalltalk) ifTrue:[
-                                                    isReference := mthd sendsAny:#(#'at:' #'at:ifAbsent:' #'classNamed:')
+                                                    isReference := mthd sendsAnySelector:#(#'at:' #'at:ifAbsent:' #'classNamed:')
                                                 ].
                                             ].
                                         ]
@@ -34320,7 +34344,7 @@
         brwsr autoSearchCodePatterns:patternsForCodeSearch "autoSearchPattern:singleClassName ignoreCase:false".
     ].
 
-    "Modified: / 16-11-2016 / 14:14:44 / cg"
+    "Modified: / 05-02-2017 / 01:28:33 / cg"
 !
 
 spawnMultipleClassBrowserFor:classes sortBy:sortHow in:where
@@ -36069,6 +36093,8 @@
 !
 
 classMenuCompareExtensionsWithRepositoryUsingManager: manager
+    "compare against the newest version in the repository"
+    
     |allExtendingPackages|
     
     allExtendingPackages := Set new.
@@ -36080,6 +36106,8 @@
         ].
     ].
     manager utilities comparePackages: allExtendingPackages askForRevision: false extensionsOnly:true.
+
+    "Modified (comment): / 04-02-2017 / 18:44:31 / cg"
 !
 
 classMenuCompareExtensionsWithRepositoryUsingManagerNamed: sourceCodeManagerClassName
@@ -42482,6 +42510,15 @@
     ].
 !
 
+projectMenuCompareTwoRepositoryVersions
+    "Comparing the current (in-image) version of the project(s)
+     against some older version found in the repository."
+
+    self projectMenuCompareTwoRepositoryVersionsUsingManager:SourceCodeManager
+
+    "Created: / 04-02-2017 / 17:30:14 / cg"
+!
+
 projectMenuDocumentation
     "save class documentation for each of the package's classes to a directory"
 
@@ -58737,10 +58774,15 @@
 
     |window|
 
-    (window := builder window) isTopView ifTrue:[
-        window
-            label:('SystemBrowser - ' , (resources string:what with:someArgument))
-    ]
+    builder notNil ifTrue:[
+        (window := builder window) notNil ifTrue:[
+            window isTopView ifTrue:[
+                window label:('SystemBrowser - ' , (resources string:what with:someArgument))
+            ]
+        ]
+    ]
+
+    "Modified: / 04-02-2017 / 20:01:31 / cg"
 !
 
 classCategoryInfo