--- a/Tools__SourceCodeManagerConfigurationTestTool.st	Wed Oct 12 17:41:32 2011 +0200
+++ b/Tools__SourceCodeManagerConfigurationTestTool.st	Wed Oct 12 23:10:19 2011 +0200
@@ -111,17 +111,19 @@
 
 doTest
     <resource: #uiCallback>
+    |pkg mgr line|
 
-    | pkg mgr line |
-    packageView isNil ifTrue:[^self].
+    packageView isNil ifTrue:[
+        ^ self
+    ].
     pkg := packageView contents.
-    pkg ifNil:[^self].
-    mgr := AbstractSourceCodeManager managerForPackage: pkg.
+    pkg ifNil:[^ self].
+    mgr := AbstractSourceCodeManager managerForPackage:pkg.
     line := '%1 -> %2, %3' 
-                bindWith: pkg 
-                    with: mgr managerTypeNameShort 
-                    with: (mgr repositoryStringForPackage: pkg).
-    resultView showCR: line
+                bindWith:pkg
+                with:mgr managerTypeNameShort
+                with:(mgr repositoryNameForPackage:pkg).
+    resultView showCR:line
 
     "Modified: / 11-10-2011 / 08:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
@@ -154,9 +156,9 @@
 !SourceCodeManagerConfigurationTestTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.1 2011-10-11 11:14:18 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011-10-12 21:10:19 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.1 2011-10-11 11:14:18 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__SourceCodeManagerConfigurationTestTool.st,v 1.2 2011-10-12 21:10:19 vrany Exp $'
 ! !