@@ -531,15 +531,18 @@ pCol = try $ do
531531 skipMany pBlank
532532 optional $ pSatisfy (matchTagClose "col")
533533 skipMany pBlank
534− return $ case lookup "width" attribs of
534+ let width = case lookup "width" attribs of
535535 Nothing -> case lookup "style" attribs of
536536 Just ('w':'i':'d':'t':'h':':':xs) | '%' `elem` xs ->
537− fromMaybe 0.0 $ safeRead ('0':'.':filter
537+ fromMaybe 0.0 $ safeRead (filter
538538 (`notElem` (" \t\r\n%'\";" :: [Char])) xs)
539539 _ -> 0.0
540540 Just x | not (null x) && last x == '%' ->
541− fromMaybe 0.0 $ safeRead ('0':'.':init x)
541+ fromMaybe 0.0 $ safeRead (init x)
542542 _ -> 0.0
543+ if width > 0.0
544+ then return $ width / 100.0
545+ else return 0.0
543546
544547pColgroup :: PandocMonad m => TagParser m [Double]
545548pColgroup = try $ do