From 233826389b4c0c4192c1eb1cacc8cfa99b2750f4 Mon Sep 17 00:00:00 2001
From: denes <??>
Date: Fri, 5 Jun 2009 12:25:06 +0000
Subject: [PATCH] Fix : wrong exception was catch in apply_subst

---
 helm/software/components/ng_kernel/nCicUntrusted.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm/software/components/ng_kernel/nCicUntrusted.ml b/helm/software/components/ng_kernel/nCicUntrusted.ml
index baae7f9c2..633ecea57 100644
--- a/helm/software/components/ng_kernel/nCicUntrusted.ml
+++ b/helm/software/components/ng_kernel/nCicUntrusted.ml
@@ -177,7 +177,7 @@ let apply_subst subst context t =
        let t = NCicSubstitution.subst_meta lc t in
         apply_subst subst () t
       with
-       Not_found ->
+       NCicUtils.Subst_not_found j when j = i ->
         match lc with
            _,NCic.Irl _ -> NCic.Meta (i,lc)
          | n,NCic.Ctx l ->
-- 
2.39.2