diff --git a/Filters/VLLilypondType.reader b/Filters/VLLilypondType.reader
index efdd1c9..12b75c0 100755
--- a/Filters/VLLilypondType.reader
+++ b/Filters/VLLilypondType.reader
@@ -187,7 +187,7 @@ def parseLilypond
   INFILE.each do |line|
     line.chomp!.sub!(/%.*/, "")
     line.gsub!(/\\breve/, "1*8/4")
-    line.scan(%r$\G\s*(\{|\}|\(|\)|\||=|~|<<|>>|--|#'|#\(|##t|##f|\\\w+|\".*?\"|\w[-+^\w\d.',:*/]+|.)$) do |token|
+    line.scan(%r$\G\s*(\{|\}|\(|\)|\||=|~|<<|>>|--|#'|#\(|##t|##f|\\\w+|\".*?\"|\w[-+^\w\d.',:*/?!]+|.)$) do |token|
       tokens.push(token[0])
     end
   end