--- a/SourceCodeManagerUtilities.st	Fri Nov 04 16:34:33 2016 +0100
+++ b/SourceCodeManagerUtilities.st	Sat Nov 12 04:33:06 2016 +0100
@@ -2494,6 +2494,21 @@
     "Modified: / 12-09-2011 / 11:56:01 / cg"
 !
 
+compareProject:aProject withRepositoryVersionTaggedAs:aTag extensionsOnly:extensionsOnly
+    |diffSet|
+
+    diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aTag extensionsOnly:extensionsOnly.
+    VersionDiffBrowser 
+        openOnDiffSet:diffSet 
+        labelA:'Repository' 
+        labelB:'Image' 
+        title:('Differences of %1' bindWith:aProject)
+        ignoreExtensions:true
+        ignoreVersionMethods:true.
+
+    "Created: / 12-11-2016 / 03:39:48 / cg"
+!
+
 compareProjectWithRepository:aProject
     ^ self compareProject:aProject withRepositoryVersionFrom:nil
 !
@@ -3212,6 +3227,16 @@
         orTag:symbolicName
 !
 
+diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aTag extensionsOnly:extensionsOnly
+    ^ self
+        diffSetOfProject:aProject 
+        againstRepositoryVersionFrom:nil
+        orTag:aTag
+        extensionsOnly:extensionsOnly
+
+    "Created: / 12-11-2016 / 03:41:23 / cg"
+!
+
 ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
     |theMetaclass versionMthd src newSrc versionMethodName oldVersionMethodName|