--- a/AbstractFileBrowser.st	Sun Jan 22 13:09:36 2012 +0100
+++ b/AbstractFileBrowser.st	Mon Jan 23 14:33:32 2012 +0100
@@ -5460,13 +5460,20 @@
 cvsCompareWithNewest
     |selectedFiles|
 
-self halt:'unimplemented'.
     selectedFiles:= self currentSelectedFiles.
     selectedFiles do:[:each |
-self halt.
-    ].
-
-    "Modified: / 29-11-2011 / 11:43:18 / cg"
+        |out diffs|
+
+        out := WriteStream on:(String new:100).
+        OperatingSystem 
+            executeCommand:'cvs diff -b ',each baseName
+            outputTo:out
+            inDirectory:each directoryName.
+        diffs := out contents.
+        TextView openWith:diffs.
+    ].
+
+    "Modified: / 23-01-2012 / 14:08:28 / cg"
 !
 
 cvsRemoveAndRemoveFromCVS:filesToRemove
@@ -9021,9 +9028,9 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.488 2012-01-19 15:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.489 2012-01-23 13:33:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.488 2012-01-19 15:06:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.489 2012-01-23 13:33:32 cg Exp $'
 ! !