diff --git a/casr-logbook-html.cabal b/casr-logbook-html.cabal
--- a/casr-logbook-html.cabal
+++ b/casr-logbook-html.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook-html
-version:            0.0.2
+version:            0.0.3
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.0.3
+
+* Fix `id` name in `a` tags.
+
 0.0.2
 
 * Use `casr-logbook-types` and not `casr-logbook`.
diff --git a/src/Data/Aviation/Casr/Logbook/Html/Html.hs b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
--- a/src/Data/Aviation/Casr/Logbook/Html/Html.hs
+++ b/src/Data/Aviation/Casr/Logbook/Html/Html.hs
@@ -556,7 +556,7 @@
                           , "-"
                           , e ^. flightpath . flightEnd . point
                           ]
-  in  do  a_ [id_ (Text.pack ('#' : lk))] ""
+  in  do  a_ [id_ (Text.pack lk)] ""
           a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "FLT"
 
 htmlEntryTag (SimulatorFlightEntry e _) =
@@ -567,7 +567,7 @@
                           , "_"
                           , e ^. simulatortype
                           ]
-  in  do  a_ [id_ (Text.pack ('#' : lk))] ""
+  in  do  a_ [id_ (Text.pack lk)] ""
           a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "SIM"
 htmlEntryTag (ExamEntry e _) =
   let lk = space2dot . concat $
@@ -577,7 +577,7 @@
                           , "_"
                           , show (e ^. examTime . daytime)
                           ]
-  in  do  a_ [id_ (Text.pack ('#' : lk))] ""
+  in  do  a_ [id_ (Text.pack lk)] ""
           a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "EXM"
 htmlEntryTag (BriefingEntry e _) =
   let lk = space2dot . concat $
@@ -587,7 +587,7 @@
                           , "_"
                           , show (e ^. briefingTime . daytime)
                           ]
-  in  do  a_ [id_ (Text.pack ('#' : lk))] ""
+  in  do  a_ [id_ (Text.pack lk)] ""
           a_ [href_ (Text.pack ('#' : lk))] . span_ [class_ "entrytag"] $ "BRF"        
 
 htmlEntry ::