% for my $d (@$dd) {
% my ($ddd, $fff, $iii) = listdir $real . "/" . $d->name;
% my $tn;
-% if ($iii) { $tn = join_paths $path, $d->name . "/" . $iii->name; }
+% if ($iii) { $tn = join_paths $path, $d->name, $iii->name; }
% else { $tn = undef; }
<& .thumbnail, target => $d->name . "/", img => $tn,
caption => $m->interp->apply_escapes($d->name, "h"),