diff --git a/Migrations/0.0.3-0.0.4/Migration.hs b/Migrations/0.0.3-0.0.4/Migration.hs
index e7aad6a..32c50b7 100644
--- a/Migrations/0.0.3-0.0.4/Migration.hs
+++ b/Migrations/0.0.3-0.0.4/Migration.hs
@@ -32,7 +32,7 @@ main = do
   tups <- sequence $ map (\entry ->
     case entry of
       [("id", theId), _, ("path", SqlByteString path), _, _, _, ("owner", SqlInteger owner), _, _, _, _, ("album", SqlInteger album), _, _] -> do
-        let newName = takeBaseName (B.unpack path) ++ "_thumb.jpg"
+        let newName = takeBaseName (B.unpack path) ++ "_preview.jpg"
         let newPath = "static" FP.</> "data" FP.</> show owner FP.</> show album FP.</> newName
         pWidth <- withMagickWandGenesis $ do
           (_, w) <- magickWand