--- a/MCRepositoryBrowser.st	Wed Apr 03 23:48:08 2013 +0200
+++ b/MCRepositoryBrowser.st	Mon Apr 15 09:10:59 2013 +0200
@@ -1,14 +1,14 @@
 "{ Package: 'stx:goodies/monticello' }"
 
 ApplicationModel subclass:#MCRepositoryBrowser
-	instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
-		selectedVersionHolder worker selectedVersionDetailsHolder
-		selectedRepositoryHolder targetPackage targetNamespace
-		lastPackage targetPackageHolder targetNamespaceNameHolder
-		updateChangefileHolder selectedPackageHolder'
-	classVariableNames:'LastAddedRepository'
-	poolDictionaries:''
-	category:'SCM-Monticello-St/X UI'
+        instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
+                selectedVersionHolder worker selectedVersionDetailsHolder
+                selectedRepositoryHolder targetPackage targetNamespace
+                lastPackage targetPackageHolder targetNamespaceNameHolder
+                updateChangefileHolder selectedPackageHolder'
+        classVariableNames:'LastAddedRepository'
+        poolDictionaries:''
+        category:'SCM-Monticello-St/X UI'
 !
 
 
@@ -916,11 +916,14 @@
 !
 
 repositoryAdd
-    |repStr rep url|
+    |repStr rep url initialURL|
 
+    initialURL := 'http://www.squeaksource.com/project'.
     repStr := Dialog 
-                request:'Repository to add (file- or HTTP-URL):'
-                initialAnswer:'http://www.squeaksource.com/project'.
+                request:'Repository to add (file- or HTTP-URL):' 
+                initialAnswer:initialURL
+                initialSelection:((initialURL findString:'project') to:(initialURL size)).
+
     repStr isEmptyOrNil ifTrue:[^ self].
 
     Error handle:[:ex |
@@ -1228,11 +1231,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $'
 !
 
 version_SVN