src/Tools/Code/code_runtime.ML

--- a/src/Tools/Code/code_runtime.ML	Wed Feb 08 23:19:10 2017 +0100
+++ b/src/Tools/Code/code_runtime.ML	Wed Feb 08 22:26:10 2017 +0100
@@ -417,7 +417,7 @@
 
 fun checked_computation cTs raw_computation ctxt =
   check_computation_input ctxt cTs
-  #> Exn.capture raw_computation
+  #> Exn.interruptible_capture raw_computation
   #> partiality_as_none;
 
 fun mount_computation ctxt cTs T raw_computation lift_postproc =