--- a/PerforceSourceCodeManager.st	Tue Apr 19 10:33:39 2011 +0200
+++ b/PerforceSourceCodeManager.st	Tue Apr 19 10:43:30 2011 +0200
@@ -571,7 +571,7 @@
 		    ].
 		    "/ is the version correct ?
 		    locRevision > newestRevision ifTrue:[
-			(Dialog confirm:('The version-info of ',cls name allBold,' is wrong \(The class version (',revision allBold,') is newer than the newest version in the repository (',newestRevision printString allBold,').\\Patch the version and retry checkin ?') withCRs)
+			(Dialog confirm:('The version-info of ',cls name allBold,' is wrong \(The class version (',locRevision allBold,') is newer than the newest version in the repository (',newestRevision printString allBold,').\\Patch the version and retry checkin ?') withCRs)
 			ifTrue:[
 			    newVersionString := self updatedRevisionStringOf:cls forRevision:newestRevision with:cls revisionString.
 			    cls updateVersionMethodFor:newVersionString.
@@ -1870,7 +1870,7 @@
 "
     self updatedRevisionStringOf:nil
 	    forRevision:'6'
-	with:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.1 2011-04-19 08:32:36 cg Exp $'
+	with:'$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.2 2011-04-19 08:43:30 cg Exp $'
 "
 ! !
 
@@ -1889,8 +1889,8 @@
 
 getPerforceDefaultSettingsString
 
-    ^(PerforceSourceCodeManager perforceClient ,':', 
-       PerforceSourceCodeManager perforceUser, ':', 
+    ^(PerforceSourceCodeManager perforceClient ,':',
+       PerforceSourceCodeManager perforceUser, ':',
        (PerforceSourceCodeManager perforcePassword ? 'pass'), '@',
        PerforceSourceCodeManager perforcePort).
 !
@@ -2262,7 +2262,7 @@
 !PerforceSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.1 2011-04-19 08:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/PerforceSourceCodeManager.st,v 1.2 2011-04-19 08:43:30 cg Exp $'
 ! !
 
 PerforceSourceCodeManager initialize!