From 433431c073522b4251dda71b36da5b26f374d58e Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Wed, 15 Oct 2014 16:55:09 +0200
Subject: Fix ill-typed debugging function

---
 dev/base_include | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'dev/base_include')

diff --git a/dev/base_include b/dev/base_include
index c2da8b18aa..7ec0bf4938 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -198,7 +198,7 @@ open Declareops;;
 
 let constbody_of_string s =
   let b = Global.lookup_constant (Nametab.locate_constant (qualid_of_string s)) in
-  Option.get (Declareops.body_of_constant b);;
+  Option.get (Declareops.body_of_constant Opaqueproof.empty_opaquetab b);;
 
 (* Get the current goal *)
 (*
-- 
cgit v1.2.3