src/Pure/Isar/calculation.ML

 fun maintain_calculation false calc = put_calculation (SOME calc)
   | maintain_calculation true calc = put_calculation NONE #> Proof.chain_facts calc;
 
 fun print_calculation false _ _ = ()
   | print_calculation true ctxt calc = Pretty.writeln
-      (ProofContext.pretty_fact ctxt (ProofContext.full_name ctxt calculationN, calc));
+      (ProofContext.pretty_fact ctxt (ProofContext.full_bname ctxt calculationN, calc));
 
 
 (* also and finally *)
 
 val get_rules = #1 o CalculationData.get o Context.Proof o Proof.context_of;