@@ -816,8 +816,8 @@ transformInline :: WriterOptions
816816 -> IO Inline
817817transformInline opts mediaRef (Image lab (src,tit)) = do
818818 let oldsrc = case (unEscapeString src, writerSourceURL opts) of
819− (s, Just u) | not (isURI s) -> u </> s
820− (s, _) -> s
819+ (s, Just u) | not (isURI src) -> u </> s
820+ (s, _) -> s
821821 newsrc <- modifyMediaRef mediaRef oldsrc
822822 return $ Image lab (newsrc, tit)
823823transformInline opts _ (x@(Math _ _))