diff --git a/history/view.qtpl b/history/view.qtpl
index b4ec298..67e5cfd 100644
--- a/history/view.qtpl
+++ b/history/view.qtpl
@@ -26,7 +26,7 @@ WithRevisions returns an html representation of `revs` that is meant to be inser
 	{% code
     currentYear := grp[0].Time.Year()
     currentMonth := grp[0].Time.Month()
-    sectionId := fmt.Sprintf("%d-%d", currentYear, currentMonth)
+    sectionId := fmt.Sprintf("%04d-%02d", currentYear, currentMonth)
     %}
 <section class="history__month">
 	<a href="#{%s sectionId %}" class="history__month-anchor">
diff --git a/history/view.qtpl.go b/history/view.qtpl.go
index be51e18..64bc380 100644
--- a/history/view.qtpl.go
+++ b/history/view.qtpl.go
@@ -156,7 +156,7 @@ func StreamWithRevisions(qw422016 *qt422016.Writer, hyphaName string, revs []Rev
 //line history/view.qtpl:27
 		currentYear := grp[0].Time.Year()
 		currentMonth := grp[0].Time.Month()
-		sectionId := fmt.Sprintf("%d-%d", currentYear, currentMonth)
+		sectionId := fmt.Sprintf("%04d-%02d", currentYear, currentMonth)
 
 //line history/view.qtpl:30
 		qw422016.N().S(`