diff --git a/src/ShellCheck/Formatter/JSON1.hs b/src/ShellCheck/Formatter/JSON1.hs
index b4dbe352d..d523bdb65 100644
--- a/src/ShellCheck/Formatter/JSON1.hs
+++ b/src/ShellCheck/Formatter/JSON1.hs
@@ -120,7 +120,7 @@ collectResult ref cr sys = mapM_ f groups
         let filename = sourceFile (NE.head group)
         result <- siReadFile sys (Just True) filename
         let contents = either (const "") id result
-        let comments' = makeNonVirtual comments contents
+        let comments' = makeNonVirtual (NE.toList group) contents
         deepseq comments' $ modifyIORef ref (\x -> comments' ++ x)
 
 finish ref = do