diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs
index 84d3a142c..dfe10d2d9 100644
--- a/src/Handler/Material.hs
+++ b/src/Handler/Material.hs
@@ -160,7 +160,7 @@ getMaterialListR tid ssh csh = do
         ]
       , dbtFilterUI  = \mPrev -> mconcat $ catMaybes
         [ Just  $ prismAForm (singletonFilter "name") mPrev $ aopt textField (fslI MsgFilterMaterialNameSearch)
-        , Just  $ prismAForm (singletonFilter "searchTypeAndDescription") mPrev $ aopt (textField & addDatalist typeOptions) (fslI MsgFilterMaterialTypeAndDescriptionSearch)]
+        , Just  $ prismAForm (singletonFilter "type-and-description") mPrev $ aopt (textField & addDatalist typeOptions) (fslI MsgFilterMaterialTypeAndDescriptionSearch)]
       , dbtCsvEncode  = noCsvEncode
       , dbtCsvDecode  = Nothing
       , dbtExtraReps = []