--- a/extensions.st	Thu Oct 01 12:45:56 2009 +0200
+++ b/extensions.st	Thu Oct 01 15:14:35 2009 +0200
@@ -770,21 +770,28 @@
 
 projectMenuSubversionCompareExtensionsInImageWithRevision: revision
 
-    | pkg diffSet  branch|
+    | pkg diffSet  branch tool smalltalkDiffToolClass|
     revision ifNil:[^self].
     pkg := self theSingleSelectedProject.
     branch := (SVN::RepositoryManager repositoryForPackage: pkg) branch.
     SVN::ProgressDialog
-	openOn:[diffSet := branch diffSetForExtensionsBetweenImageAndRevision: revision.]
-	title: 'Creating diffset for extensions'
-	subtitle:
-	    ('Package: ' , branch package asText allItalic ,
-	     ' Revision ' , revision asString).
-    Tools::SmalltalkDiffTool
-	openOnDiffSet:diffSet
-	labelA: 'Image'
-	labelB: 'r',revision printString
-	title: 'Differences of extensions for ',pkg,' between image and revision ',revision printString.
+        openOn:[diffSet := branch diffSetForExtensionsBetweenImageAndRevision: revision.]
+        title: 'Creating diffset for extensions'
+        subtitle:
+            ('Package: ' , branch package asText allItalic ,
+             ' Revision ' , revision asString).
+
+    smalltalkDiffToolClass := Smalltalk classNamed:#'Tools::SmalltalkDiffTool'.
+
+    tool := (smalltalkDiffToolClass notNil
+            and:[smalltalkDiffToolClass isLoaded]) 
+                ifTrue:[ smalltalkDiffToolClass ]
+                ifFalse:[ VersionDiffBrowser ].
+    tool
+        openOnDiffSet:diffSet
+        labelA: 'Image'
+        labelB: 'r',revision printString
+        title: 'Differences of extensions for ',pkg,' between image and revision ',revision printString.
 
     "Created: / 19-04-2008 / 19:13:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 09-08-2009 / 14:14:15 / Jan Vrany <vranyj1@fel.cvut.cz>"