--- a/Tools__NewSystemBrowser.st	Fri Apr 04 11:45:03 2014 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Apr 04 22:25:26 2014 +0200
@@ -40753,16 +40753,14 @@
     "Comparing the current (in-image) version of the project(s)
      against the the newest version found in the repository."
 
-    self withWaitCursorDo:[
-        self selectedProjects value do:[:eachProject |
-            manager utilities compareProjectWithRepository:eachProject
-        ].
+    self withWaitCursorDo:[        
+        manager utilities comparePackages: self selectedProjects value askForRevision: false.
     ].
 
     "Modified: / 12-10-2006 / 21:46:14 / cg"
     "Created: / 15-10-2011 / 23:10:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 20:29:20 / cg"
-    "Modified: / 16-01-2012 / 18:45:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-04-2014 / 15:38:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuCompareAgainstNewestInRepositoryUsingManagerNamed: sourceCodeManagerClassName
@@ -40790,33 +40788,13 @@
     "Comparing the current (in-image) version of the project(s)
      against some older version found in the repository."
 
-    |dateFormat string dateOrNil symbolicName|
-
-    dateFormat := UserPreferences current dateInputFormat.
-    string := Dialog
-                request:(resources
-                        string:'Compare with version from date (%1) or tag (any other format):'
-                        with:dateFormat)
-                initialAnswer:(Date today printStringFormat:dateFormat).
-
-    string isEmptyOrNil ifTrue:[^ self].
-    dateOrNil := Date readFrom:string printFormat:dateFormat onError:nil.
-    dateOrNil isNil ifTrue:[
-        symbolicName := string
-    ].
-
-    self withWaitCursorDo:[
-        self selectedProjects value do:[:eachProject |
-            dateOrNil notNil ifTrue:[
-                aManager utilities compareProject:eachProject withRepositoryVersionFrom:dateOrNil
-            ] ifFalse:[
-                aManager utilities compareProject:eachProject withRepositoryVersionTaggedAs:symbolicName
-            ]
-        ].
+    self withWaitCursorDo:[        
+        aManager utilities comparePackages: self selectedProjects value askForRevision: true.
     ].
 
     "Created: / 12-10-2006 / 17:41:55 / cg"
     "Modified: / 12-10-2006 / 21:46:14 / cg"
+    "Modified: / 04-04-2014 / 15:36:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuCompareAgainstStableInRepository
@@ -61456,11 +61434,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2048 2014-04-04 09:45:03 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2049 2014-04-04 20:25:26 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2048 2014-04-04 09:45:03 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2049 2014-04-04 20:25:26 vrany Exp $'
 !
 
 version_HG
@@ -61469,7 +61447,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2048 2014-04-04 09:45:03 vrany Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2049 2014-04-04 20:25:26 vrany Exp $'
 ! !