--- a/mercurial/HGRepository.st	Sun Dec 09 12:02:12 2012 +0000
+++ b/mercurial/HGRepository.st	Sun Dec 09 23:27:08 2012 +0000
@@ -148,6 +148,23 @@
     "Created: / 16-11-2012 / 22:36:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+remotes
+    "Returns a collection of configured remote (upstream) repositories"
+
+    | paths remotes |
+
+    paths := self config get: #paths default: nil.
+    paths isNil ifTrue:[ ^ #() ].
+    paths isEmpty ifTrue:[ ^ #() ].
+    remotes := OrderedCollection new.
+    paths keysAndValuesDo:[:name :url|
+        remotes add: (HGRemote new setRepository: self; setName: name url:url value).
+    ].
+    ^remotes
+
+    "Created: / 09-12-2012 / 22:51:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 uuid
     "Returns unique ID identifing this concrete instance
      of a repository"