@@ -138,7 +138,8 @@ transformPicMath opts entriesRef (Image lab (src,_)) = do
138138 let (w,h) = fromMaybe (0,0) $ sizeInPoints `fmap` size
139139 let tit' = show w ++ "x" ++ show h
140140 entries <- readIORef entriesRef
141− let newsrc = "Pictures/" ++ show (length entries) ++ takeExtension src
141+ let extension = takeExtension $ takeWhile (/='?') src
142+ let newsrc = "Pictures/" ++ show (length entries) ++ extension
142143 let toLazy = B.fromChunks . (:[])
143144 epochtime <- floor `fmap` getPOSIXTime
144145 let entry = toEntry newsrc epochtime $ toLazy img