diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ed4da7aae93..3033d11387d 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2021-03-15  Tom Tromey  <tromey@adacore.com>
+
+	PR ada/27545:
+	* ada-lang.c (ada_var_value_operation::evaluate): Use recursive
+	call for tagged type.
+
 2021-03-15  Tom Tromey  <tromey@adacore.com>
 
 	* ada-exp.y (exp1): Handle resolution of the right hand side of an
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index ea43a259f51..07958e7934e 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -10320,8 +10320,7 @@ ada_var_value_operation::evaluate (struct type *expect_type,
 	     a fixed type would result in the loss of that type name,
 	     thus preventing us from printing the name of the ancestor
 	     type in the type description.  */
-	  value *arg1 = var_value_operation::evaluate (nullptr, exp,
-						       EVAL_NORMAL);
+	  value *arg1 = evaluate (nullptr, exp, EVAL_NORMAL);
 
 	  if (type->code () != TYPE_CODE_REF)
 	    {