diff --git a/css-syntax.cabal b/css-syntax.cabal
--- a/css-syntax.cabal
+++ b/css-syntax.cabal
@@ -1,5 +1,5 @@
 name:                css-syntax
-version:             0.1.0.1
+version:             0.1.0.2
 
 synopsis: High-performance CSS tokenizer and serializer.
 description:
diff --git a/src/Data/CSS/Syntax/Tokens.hs b/src/Data/CSS/Syntax/Tokens.hs
--- a/src/Data/CSS/Syntax/Tokens.hs
+++ b/src/Data/CSS/Syntax/Tokens.hs
@@ -287,6 +287,7 @@
     _ -> False
 needComment a b = case a of
     Whitespace    -> b == Whitespace
+    Ident "--"    -> b == Delim '>' -- Looks like a CDC
     Ident _       -> idn || b == CDC || b == LeftParen
     AtKeyword _   -> idn || b == CDC
     Hash {}       -> idn || b == CDC
diff --git a/test/Test.hs b/test/Test.hs
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -291,8 +291,12 @@
             testSerialize [Ident "a", Ident "b"] "a/**/b"
             testSerialize [Dimension "1" (NVInteger 1) "em", Ident "b"] "1em/**/b"
 
+        it "Doesn't regress Tokenize=>serialize=>tokenize roundtrip" $ do
+            let a = tokenize "\\-->"
+            tokenize (serialize a) `shouldBe` a
+
         modifyMaxSize (const 500) $ modifyMaxSuccess (const 100000) $
-            prop "Tokeninze=>serialize=>tokenize roundtrip"
+            prop "Tokenize=>serialize=>tokenize roundtrip"
                 prop_tstRoundTrip
         modifyMaxSize (const 50) $ modifyMaxSuccess (const 100000) $
             prop "Serialize=>tokenize roundtrip"