@@ -1211,7 +1211,8 @@ citeKey = try $ do
12111211 firstChar <- alphaNum <|> char '_' <|> char '*' -- @* for wildcard in nocite
12121212 let regchar = satisfy (\c -> isAlphaNum c || c == '_')
12131213 let internal p = try $ p <* lookAhead regchar
1214− rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/")
1214+ rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/") <|>
1215+ (oneOf ":/" <* lookAhead (char '/'))
12151216 let key = firstChar:rest
12161217 return (suppress_author, key)
12171218