diff --git a/contrib/dump-asy.pl b/contrib/dump-asy.pl
index c183db33..2c244752 100755
--- a/contrib/dump-asy.pl
+++ b/contrib/dump-asy.pl
@@ -56,7 +56,8 @@ sub dump_node {
     if (!defined($n->{window})) {
         $type = $n->{layout};
     }
-    my $name = qq|``$na'' ($type)|;
+    my $marks = $n->{marks} ? ' [' . join('][', @{$n->{marks}}) . ']' : '';
+    my $name = qq|``$na'' ($type)$marks|;
 
     print $tmp "TreeNode n" . $n->{id} . " = makeNode(";