Further progress and bugfixes

1 files changed, 1 insertions, 1 deletions

diff --git a/ast.c b/ast.c
index 2d6b3bc7..170fd12a 100644
--- a/ast.c
+++ b/ast.c
@@ -104,7 +104,7 @@ Text_t _optional_tagged(const char *tag, ast_t *ast)
 
 Text_t _optional_tagged_type(const char *tag, type_ast_t *ast)
 {
-    return ast ? Text$format("<%s>%k</%s>", tag, stack(type_ast_to_xml(ast)), tag) : Text("");
+    return ast ? Text$format("<%s>%k</%s>", tag, type_ast_to_xml_ptr(ast), tag) : Text("");
 }
 
 Text_t ast_to_xml(ast_t *ast)