diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,8 @@
+# CHANGELOG
+
+- 0.8.8.0 (2017-12-26)
+    * Remove path information from Choice input element values
+
 - 0.8.7.0
     * Bump heist dependency to 1.0
 
diff --git a/digestive-functors-heist.cabal b/digestive-functors-heist.cabal
--- a/digestive-functors-heist.cabal
+++ b/digestive-functors-heist.cabal
@@ -1,5 +1,5 @@
 Name:          digestive-functors-heist
-Version:       0.8.7.0
+Version:       0.8.8.0
 Synopsis:      Heist frontend for the digestive-functors library
 Description:   Heist frontend for the digestive-functors library
 Homepage:      http://github.com/jaspervdj/digestive-functors
@@ -22,11 +22,11 @@
     Text.Digestive.Heist.Compiled
 
   Build-depends:
-    base               >= 4    && < 5,
-    blaze-builder      >= 0.3  && < 0.5,
-    digestive-functors >= 0.8  && < 0.9,
-    heist              >= 0.13 && < 1.1,
-    map-syntax         >= 0.2  && < 0.3,
-    mtl                >= 2    && < 2.3,
-    text               >= 0.11 && < 1.3,
-    xmlhtml            >= 0.1  && < 0.3
+    base               >= 4     && < 5,
+    blaze-builder      >= 0.3   && < 0.5,
+    digestive-functors >= 0.8.3 && < 0.9,
+    heist              >= 0.13  && < 1.1,
+    map-syntax         >= 0.2   && < 0.3,
+    mtl                >= 2     && < 2.3,
+    text               >= 0.11  && < 1.3,
+    xmlhtml            >= 0.1   && < 0.3
diff --git a/src/Text/Digestive/Heist.hs b/src/Text/Digestive/Heist.hs
--- a/src/Text/Digestive/Heist.hs
+++ b/src/Text/Digestive/Heist.hs
@@ -59,7 +59,6 @@
 import           Data.List             (unionBy)
 import           Data.Map.Syntax       ((##))
 import           Data.Maybe            (fromMaybe)
-import           Data.Monoid           (mappend)
 import           Data.Text             (Text)
 import qualified Data.Text             as T
 import           Heist
@@ -220,10 +219,9 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoice ref view
         kids     = map makeOption choices
-        value i  = ref' `mappend` "." `mappend` i
 
         makeOption (i, c, sel) = X.Element "option"
-            (attr sel ("selected", "selected") [("value", value i)])
+            (attr sel ("selected", "selected") [("value", i)])
             [X.TextNode c]
 
     return $ makeElement "select" kids $ addAttrs attrs $ setDisabled ref view
@@ -240,12 +238,11 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoiceGroup ref view
         kids     = map makeGroup choices
-        value i  = ref' `mappend` "." `mappend` i
 
         makeGroup (name, options) = X.Element "optgroup"
             [("label", name)] $ map makeOption options
         makeOption (i, c, sel) = X.Element "option"
-            (attr sel ("selected", "selected") [("value", value i)])
+            (attr sel ("selected", "selected") [("value", i)])
             [X.TextNode c]
 
     return $ makeElement "select" kids $ addAttrs attrs $ setDisabled ref view
@@ -263,14 +260,13 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoice ref view
         kids     = concatMap makeOption choices
-        value i  = ref' `mappend` "." `mappend` i
 
         makeOption (i, c, sel) =
-            [ X.Element "label" [("for", value i)]
+            [ X.Element "label" [("for", i)]
               [ X.Element "input"
                   (attr sel ("checked", "checked") $ addAttrs attrs
-                      [ ("type", "radio"), ("value", value i)
-                      , ("id", value i), ("name", ref')
+                      [ ("type", "radio"), ("value", i)
+                      , ("id", i), ("name", ref')
                       ]) []
               , X.TextNode c]
             ]
diff --git a/src/Text/Digestive/Heist/Compiled.hs b/src/Text/Digestive/Heist/Compiled.hs
--- a/src/Text/Digestive/Heist/Compiled.hs
+++ b/src/Text/Digestive/Heist/Compiled.hs
@@ -351,10 +351,9 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoice ref view
         kids     = map makeOption choices
-        value i  = ref' <> "." <> i
 
         makeOption (i, c, sel) = X.Element "option"
-            (attr sel ("selected", "selected") [("value", value i)])
+            (attr sel ("selected", "selected") [("value", i)])
             [X.TextNode c]
 
         e = makeElement "select" kids $ addAttrs attrs
@@ -371,12 +370,11 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoiceGroup ref view
         kids     = map makeGroup choices
-        value i  = ref' <> "." <> i
 
         makeGroup (name, options) = X.Element "optgroup"
             [("label", name)] $ map makeOption options
         makeOption (i, c, sel) = X.Element "option"
-            (attr sel ("selected", "selected") [("value", value i)])
+            (attr sel ("selected", "selected") [("value", i)])
             [X.TextNode c]
 
         e = makeElement "select" kids $ addAttrs attrs
@@ -393,15 +391,14 @@
     let ref'     = absoluteRef ref view
         choices  = fieldInputChoice ref view
         kids     = concatMap makeOption choices
-        value i  = ref' <> "." <> i
 
         makeOption (i, c, sel) =
             [ X.Element "input"
                 (attr sel ("checked", "checked") $ addAttrs attrs
-                    [ ("type", "radio"), ("value", value i)
-                    , ("id", value i), ("name", ref')
+                    [ ("type", "radio"), ("value", i)
+                    , ("id", i), ("name", ref')
                     ]) []
-            , X.Element "label" [("for", value i)] [X.TextNode c]
+            , X.Element "label" [("for", i)] [X.TextNode c]
             ]
 
     return $ X.renderHtmlFragment X.UTF8 kids