--- a/NewLauncher.st	Mon May 09 10:04:55 2016 +0200
+++ b/NewLauncher.st	Mon May 09 10:04:57 2016 +0200
@@ -3724,7 +3724,8 @@
     "update the infoLabel (at the bottom) from the current project"
 
     |project projectDir packageName packageNameOrNil defNameSpace projectInfo
-     cvsRepository storeDB image bindings makeInfoString svnWorkDirBaseName|
+     cvsRepository storeDB image bindings makeInfoString 
+     svnRepositoryManagerClass svnWorkDirBaseName|
 
     (Project notNil and:[(project := Project current) notNil]) ifTrue:[
         projectDir := project directory.
@@ -3755,7 +3756,7 @@
     makeInfoString := [:title :value |
             (resources string:title) allBold
             ,': '
-            ,(value colorizeAllWith:(Color blue darkened))
+            ,(value withColor:(Color blue darkened))
             ,' '
         ].
 
@@ -3801,11 +3802,12 @@
         bindings at:'NOREPOSITORY' put:''.
     ].
 
-    (SVN::RepositoryManager notNil
-    and:[ SVN::RepositoryManager isLoaded
-    and:[ SVN::RepositoryManager enabled ]])
+    svnRepositoryManagerClass := Smalltalk at:#'SVN::RepositoryManager'.
+    (svnRepositoryManagerClass notNil
+    and:[ svnRepositoryManagerClass isLoaded
+    and:[ svnRepositoryManagerClass enabled ]])
         ifTrue:[
-            svnWorkDirBaseName := SVN::RepositoryManager current workingCopyBase asFilename baseName.
+            svnWorkDirBaseName := svnRepositoryManagerClass current workingCopyBase asFilename baseName.
 
             bindings
                 at:  'SVN_WORKING_COPY'