1.1 --- a/test/Tools/isac/Knowledge/rational-2.sml	Sun Jul 31 13:45:20 2022 +0200
     1.2 +++ b/test/Tools/isac/Knowledge/rational-2.sml	Sun Jul 31 16:35:33 2022 +0200
     1.3 @@ -1602,7 +1602,7 @@
     1.4  val thy = @{theory Isac_Knowledge};
     1.5  val ctxt = Proof_Context.init_global thy;
     1.6  val t = TermC.parseNEW' ctxt "get_denominator ((a +x)/b)";
     1.7 -val SOME (_, t') = eval_get_denominator "" 0 t thy;
     1.8 +val SOME (_, t') = eval_get_denominator "" 0 t ctxt;
     1.9  if UnparseC.term t' = "get_denominator ((a + x) / b) = b"
    1.10  then () else error "get_denominator ((a + x) / b) = b"
    1.11