--- a/AbstractSourceCodeManager.st	Sat Oct 31 13:43:46 2009 +0100
+++ b/AbstractSourceCodeManager.st	Tue Nov 03 20:30:18 2009 +0100
@@ -1636,10 +1636,10 @@
         revision isNil ifTrue:[ 
             revision := aClass revision.
             revision isNil ifTrue:[
-                ('SourceCodeManager [warning]: class `' , aClass name , ''' has no revision string') infoPrintCR.
+                ('SourceCodeManager [warning]: class "%1" has no revision string' bindWith:aClass name) infoPrintCR.
                 ^ nil.
             ].
-            ('SourceCodeManager [info]: trusting classes revision ...') infoPrintCR.
+            ('SourceCodeManager [info]: trusting classes revision...(%1)' bindWith:aClass name) infoPrintCR.
         ]
     ] ifFalse:[
         revision := aRevisionStringOrNil
@@ -1647,7 +1647,7 @@
 
     sourceInfo := self sourceInfoOfClass:aClass.
     sourceInfo isNil ifTrue:[
-       ('SourceCodeManager [warning]: no sourceInfo for class `' , aClass name , '''') infoPrintCR.
+       ('SourceCodeManager [warning]: no sourceInfo for class "%1"' bindWith:aClass name) infoPrintCR.
         ^ nil
     ].
 
@@ -2743,11 +2743,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.231 2009-10-23 08:47:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.232 2009-11-03 19:30:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.231 2009-10-23 08:47:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.232 2009-11-03 19:30:18 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!