diff --git a/src/Handler/LMS/Learners.hs b/src/Handler/LMS/Learners.hs
index 19b5d0ca7..3f8cdf2ab 100644
--- a/src/Handler/LMS/Learners.hs
+++ b/src/Handler/LMS/Learners.hs
@@ -202,7 +202,7 @@ getLmsLearnersDirectR sid qsh = do
                     , csvUseCrLf        = lmsDownloadCrLf
                     }
       csvOpts = def { csvFormat = fmtOpts }
-  csvSheetName <- csvFilenameLmsUser "t" -- DEBUG UNDO ME BEFORE PRODUCTION qsh
+  csvSheetName <- csvFilenameLmsUser qsh
   let nr  = length lms_users
       msg = "Success. LMS Users download file " <> csvSheetName <> " containing " <> tshow nr <> " rows"  
   $logInfoS "LMS" msg
@@ -210,4 +210,4 @@ getLmsLearnersDirectR sid qsh = do
   csvRenderedToTypedContentWith csvOpts csvSheetName csvRendered  
 
 -- direct Download see:
--- https://ersocon.net/blog/2017/2/22/creating-csv-files-in-yesod
+-- https://ersocon.net/blog/2017/2/22/creating-csv-files-in-yesod
\ No newline at end of file