--- a/mercurial/HGTests.st	Mon Jan 14 13:56:09 2013 +0000
+++ b/mercurial/HGTests.st	Mon Jan 14 14:11:31 2013 +0000
@@ -141,6 +141,22 @@
     self assert: repo branches size == 2.
 
     "Created: / 10-12-2012 / 03:10:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_branches_05
+    "
+    Freshly created repository should have 'default' branch
+
+    "
+
+    | repo branches |
+
+    repo := self repositoryNamed:'test_repo_empty' unpack: false.
+    branches := repo branches.
+    self assert: branches size == 1.
+    self assert: branches anElement name = 'default'
+
+    "Created: / 14-01-2013 / 14:08:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGTests methodsFor:'tests - changesets'!