1 files changed, 3 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index 07e69834..bd5787b4 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -3962,6 +3962,9 @@ fun monoDecl (env, fm) (all as (d, loc)) =
             in
                 SOME (env, fm, ps)
             end
+          | L.DOnError n => SOME (env,
+                                  fm,
+                                  [(L'.DOnError n, loc)])
     end
 
 datatype expungable = Client | Channel