1 files changed, 2 insertions, 1 deletions
diff --git a/exn_handler.sml b/exn_handler.sml
index 52a2c5c..50fb8dc 100644
--- a/exn_handler.sml
+++ b/exn_handler.sml
@@ -30,13 +30,14 @@ structure GlobalExnHandler: sig val handler: exn -> unit end = struct
 
   fun handler e =
   let
-    open Tokenizer
+    open Tokenizer Cpp
   in
     (case e of
       FsmTableIsTooSmall =>
           eprint "fsm table is too small. Increate 'maxState' value"
     | IO.Io _ => ioExn e
     | TkErrorAug (pos, msg) => eprint $ Stream.ppos2str pos ^ ": " ^ msg
+    | TkExpected v => tkExpectedPrint v
     | _ => otherExn e;
     exit 255)
   end