--- a/MCRepositoryBrowser.st	Mon Mar 25 22:51:35 2013 +0100
+++ b/MCRepositoryBrowser.st	Mon Mar 25 22:53:56 2013 +0100
@@ -882,6 +882,7 @@
     | files|
 
     Error handle:[:ex |
+        Dialog warn:'Exception: ',ex description
     ] do:[
         files := rep allFileNames.
     ].
@@ -908,7 +909,13 @@
     repStr := Dialog request:'Reporitory to add:'.
     repStr isEmptyOrNil ifTrue:[^ self].
 
-    url := URL fromString:repStr.
+    Error handle:[:ex |
+        Dialog warn:'Invalid URL (',ex description,')'.
+        ^ self
+    ] do:[
+        url := URL fromString:repStr.
+    ].
+
     url method = 'http' ifTrue:[
         rep := MCHttpRepository
                 location: repStr
@@ -1194,11 +1201,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.21 2013-03-21 23:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.22 2013-03-25 21:53:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.21 2013-03-21 23:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.22 2013-03-25 21:53:56 cg Exp $'
 !
 
 version_SVN