--- a/SourceCodeManagerUtilities.st	Wed Jun 13 11:05:11 2018 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Jun 14 17:02:40 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 eXept Software AG
               All Rights Reserved
@@ -19,7 +17,7 @@
 	instanceVariableNames:'manager resources confirmNewFiles'
 	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
 		YesToAllNotification LastSourceLogMessages DefaultUtilities
-		LastTag LastComparedTag'
+		LastTag LastComparedTag AlwaysUpdateVersionMethodsIfNoOtherChange'
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
 !
@@ -2241,9 +2239,19 @@
             onlyInRep isEmpty ifTrue:[
                 (changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[
                     versionMethodsRep notEmpty ifTrue:[
-                        (self confirm:(resources string:'Only version methods are different in %1.\\Update the version-IDs ?' with:aClass name allBold) withCRs) ifTrue:[
-                            versionMethodsRep do:[:each | each apply].
-                        ]
+                         (answer := AlwaysUpdateVersionMethodsIfNoOtherChange) isNil ifTrue:[
+                            Dialog 
+                                withOptoutOption:[AlwaysUpdateVersionMethodsIfNoOtherChange := true]
+                                labelled:'Do not ask again, but always update if no other change'
+                                do:[
+                                    answer := self confirm:(resources string:'Only version methods are different in %1.\\Update the version-IDs ?' with:aClass name allBold) withCRs.
+                                ]
+                        ].
+                        answer ifTrue:[
+                            Class withoutUpdatingChangesDo:[
+                                versionMethodsRep do:[:each | each apply].
+                            ].
+                        ].
                     ].
                     "/ make all those methods belong to the classes project
                     "/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
@@ -2423,6 +2431,7 @@
 
     "Modified: / 07-02-2001 / 18:18:32 / ps"
     "Modified: / 22-07-2013 / 13:17:32 / cg"
+    "Modified: / 14-06-2018 / 17:02:05 / Claus Gittinger"
 !
 
 checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager