Merge branch 'v8.5'

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml
index 8fd90ec364..b3f0ba5b58 100644
--- a/kernel/csymtable.ml
+++ b/kernel/csymtable.ml
@@ -163,7 +163,7 @@ let rec slot_for_getglobal env (kn,u) =
 	    let v = eval_to_patch env (code,pl,fv) in
 	      set_global v
 	    else set_global (val_of_constant (kn,u))
-	 | BCallias kn' -> slot_for_getglobal env kn'
+	 | BCalias kn' -> slot_for_getglobal env kn'
 	 | BCconstant -> set_global (val_of_constant (kn,u)) in
 (*Pp.msgnl(str"value stored at: "++int pos);*)
     rk := Some (Ephemeron.create pos);