diff -r dc5e958a20dc -r cf319f2e56d0 NewLauncher.st
--- a/NewLauncher.st	Mon May 09 21:47:57 2016 +0200
+++ b/NewLauncher.st	Thu May 12 08:33:55 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.
@@ -3753,9 +3754,12 @@
     ].
 
     makeInfoString := [:title :value |
+            |v|
+            v := value.
+value isString ifFalse:[v := '***' ].
             (resources string:title) allBold
             ,': '
-            ,(value colorizeAllWith:(Color blue darkened))
+            ,(v withColor:(Color blue darkened))
             ,' '
         ].
 
@@ -3801,11 +3805,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'