diff --git a/bsrc/Data/List.bs b/bsrc/Data/List.bs
index f90d697..414afde 100644
--- a/bsrc/Data/List.bs
+++ b/bsrc/Data/List.bs
@@ -1,5 +1,6 @@
 module Data.List
 
+/* This is a comment */
 export datatype List a =
    NULL()
  | (:)(a,List a);
diff --git a/hsrc/Syntax/Lexer.x b/hsrc/Syntax/Lexer.x
index 1b1e399..c512134 100644
--- a/hsrc/Syntax/Lexer.x
+++ b/hsrc/Syntax/Lexer.x
@@ -21,14 +21,14 @@ $bindigit = [01]
 $typestart   = [A-Z\_]
 $valstart    = [a-z\_]
 $identrest   = [a-zA-Z0-9\_\.]
-$opident     = [\~\!\@\#\$\%\^\&\*\+\-\=\.\:\<\>\?\/\_]
+$opident     = [\~\!\@\#\$\%\^\&\*\+\-\=\.\:\<\>\?\_]
 $escape_char = [abfnrtv'\"\\]
 
 :-
 
 -- Whitespace
   $white+                              ;
-  "--".*                               ;
+  "/*".*"*/"                                 ;
 
 -- Numbers
   $decdigit+                                       { emitS (buildInt 10)  }