diff --git a/src/Form/Value.elm b/src/Form/Value.elm
index a11116e1..ac4b4892 100644
--- a/src/Form/Value.elm
+++ b/src/Form/Value.elm
@@ -80,8 +80,9 @@ compare a (Value kind rawValue) =
                     LT
 
         StringValue ->
-            -- TODO
-            LT
+            -- the phantom types in the Field API don't ever run this, so it won't be called there
+            -- Just in case anyone calls it, it delegates to Basics.compare
+            Basics.compare a rawValue
 
         DateValue ->
             Result.map2 Date.compare