--- a/CVSSourceCodeManager.st	Wed Aug 28 10:07:42 2019 +0200
+++ b/CVSSourceCodeManager.st	Wed Aug 28 10:39:24 2019 +0200
@@ -2198,7 +2198,7 @@
     ].
     binRevision := cls binaryRevision.
     (binRevision notNil and:[classRevision ~= binRevision]) ifTrue:[
-        Transcript showCR:('CVSSourceCodeManager [info]: class ' , className , ' is based upon ' , binRevision , ' but has revision ' , (classRevision ? '?'))
+        Transcript showCR:'CVSSourceCodeManager [info]: class %1 is based upon %2 but has revision %3' with:className with:binRevision with:(classRevision ? '?').
     ].
 
     classRevision isNil ifTrue:[
@@ -2325,7 +2325,7 @@
                 newestRevision isNil ifTrue:[
                     newestRevision := self newestRevisionOf:cls.
                     newestRevision isNil ifTrue:[
-                        (Dialog confirm:('The source container for ',cls name allBold,' seems corrupted. Proceed?' withCRs)) ifFalse:[
+                        (Dialog confirm:('The source container for %1 seems corrupted. Proceed?' bindWith:cls name allBold)) ifFalse:[
                             ^ false
                         ].
                         ^ self
@@ -2366,7 +2366,7 @@
             "/
             "/ no change
             "/
-            Transcript showCR:'no change in ' , className , ' (repository unchanged)'.
+            Transcript showCR:'no change in %1 (repository unchanged)' with:className.
 
             force ifFalse:[
 "/            (ChangeSet current includesChangeForClass:cls) ifTrue:[