--- a/MCRepositoryBrowser.st	Mon Feb 09 11:10:44 2015 +0100
+++ b/MCRepositoryBrowser.st	Mon Feb 09 14:57:08 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 ApplicationModel subclass:#MCRepositoryBrowser
 	instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
 		selectedVersionHolder worker selectedVersionDetailsHolder
@@ -649,13 +651,23 @@
     "the primary repository is the one into which we checkin by default.
      (see MCSettingsApplication)"
 
-    |repository browser|
+    |repository|
 
     repository := UserPreferences current at:#mcPrimaryRepository ifAbsent:nil.
+    ^ self openOnRepository:repository forPackage:anSTXPackageIdOrNil
+
+    "Created: / 03-12-2011 / 10:42:01 / cg"
+!
+
+openOnRepository:aRepository forPackage:anSTXPackageIdOrNil
+    "the primary repository is the one into which we checkin by default.
+     (see MCSettingsApplication)"
+
+    |browser|
 
     browser := self new.
     browser allButOpen.
-    browser selectedRepository:repository.
+    browser selectedRepository:aRepository.
     anSTXPackageIdOrNil notNil ifTrue:[
         browser selectedPackage:anSTXPackageIdOrNil.
     ].
@@ -1347,15 +1359,15 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.37 2014-11-01 00:05:26 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.37 2014-11-01 00:05:26 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCRepositoryBrowser.st,v 1.37 2014-11-01 00:05:26 vrany Exp $'
+    ^ '$Id: MCRepositoryBrowser.st,v 1.38 2015-02-09 13:57:08 cg Exp $'
 ! !