--- a/Tools__NewSystemBrowser.st	Sat Nov 29 02:52:56 2014 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Nov 29 03:35:48 2014 +0100
@@ -24300,10 +24300,12 @@
 !
 
 updatePluginVisibility
-    | pluginVisible  frame  pluginApp  pluginView |
-
-    pluginVisible := self navigationState pluginVisibleHolder value.
-    frame := self navigationState codePaneAndPluginView.
+    |naviState pluginVisible  frame  pluginApp  pluginView |
+
+    naviState := self navigationState.
+
+    pluginVisible := naviState pluginVisibleHolder value.
+    frame := naviState codePaneAndPluginView.
     frame isNil ifTrue:[
         ^ self
     ].
@@ -24312,11 +24314,9 @@
         pluginApp masterApplication:self.
         pluginView := ApplicationSubView new client:pluginApp.
         frame addSubView:pluginView.
-        frame 
-            relativeCorners:self navigationState codePaneAndPluginViewRelativeCorners.
-    ] ifFalse:[
-        self navigationState 
-            codePaneAndPluginViewRelativeCorners:frame relativeCorners.
+        frame relativeCorners:naviState codePaneAndPluginViewRelativeCorners.
+    ] ifFalse:[
+        naviState codePaneAndPluginViewRelativeCorners:frame relativeCorners.
         pluginView := frame subViews second.
         pluginView destroy.
     ].
@@ -54277,7 +54277,7 @@
 !
 
 updatePackageInfoForClass:aClass
-    |cls packageLabel loadInfo revisionInfo sourceCodeManager sourceCodeManagerInfo revision lastUser|
+    |cls packageLabel loadInfo revisionInfo sourceCodeManager sourceCodeManagerName revision lastUser|
 
     (aClass notNil and:[aClass isClass or:[aClass isMetaclass]]) ifTrue:[
         "/ packageLabel := 'Base: ' , (aClass package ? '?').
@@ -54289,20 +54289,20 @@
             sourceCodeManager := self sourceCodeManagerOfClass:aClass.
 
             sourceCodeManager notNil ifTrue:[
-                sourceCodeManagerInfo := sourceCodeManager managerTypeNameShort , ' '
-            ] ifFalse:[
-                sourceCodeManagerInfo := ''.
-            ].
-
-            revisionInfo := cls revisionInfo.
-            (revisionInfo notNil and:[(revisionInfo at:#revision) notNil]) ifTrue:[
-                revision := revisionInfo at:#revision.
-                lastUser := ' ',((revisionInfo at:#user) ? '').
+                sourceCodeManagerName := sourceCodeManager managerTypeNameShort , ' '.
+                revisionInfo := cls revisionInfoOfManager:sourceCodeManager.
+            ] ifFalse:[
+                sourceCodeManagerName := ''.
+                revisionInfo := cls revisionInfo.
+            ].
+
+            (revisionInfo notNil and:[(revision := revisionInfo symbolicVersionName "revision") notNil]) ifTrue:[
+                lastUser := ' ',(revisionInfo user ? '').
             ] ifFalse:[
                 revision := cls revision.
                 lastUser := ''.
             ].
-            loadInfo := ' [%1%2%3]' bindWith: sourceCodeManagerInfo with:(revision ? 'no revision') with:lastUser.
+            loadInfo := ' [%1%2%3]' bindWith: sourceCodeManagerName with:(revision ? 'no revision') with:lastUser.
             aClass wasAutoloaded ifTrue:[
                 loadInfo := loadInfo , ' {Auto}'.
             ].
@@ -57377,6 +57377,7 @@
     "Created: / 04-12-2011 / 22:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-semantic checks'!
 
 checkAcceptedMethod:aMethod inClass:aClass
@@ -61874,11 +61875,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2135 2014-11-28 22:00:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2135 2014-11-28 22:00:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
 !
 
 version_HG
@@ -61887,7 +61888,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2135 2014-11-28 22:00:43 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
 ! !