beta 2011.12.13 15:17

1 files changed, 11 insertions, 6 deletions

diff --git a/tex/context/base/bibl-bib.mkiv b/tex/context/base/bibl-bib.mkiv
index 760338f39..6144015ad 100644
--- a/tex/context/base/bibl-bib.mkiv
+++ b/tex/context/base/bibl-bib.mkiv
@@ -527,24 +527,29 @@
    \edef\currentbibtexsession{#1}%
    \let\currentlist\currentbibtexsession
    \setuplist[\currentbibtexsession][\c!criterium=\v!previous,#2]
-   \doifelsenothing{\namedlistparameter\currentbibtexsession\c!title}
-     {\systemsuppliedchapter[\currentbibtexsession]{\headtext{\currentbibtexsession}}}
-     {\normalexpanded{\systemsuppliedchapter[\currentbibtexsession]{\namedlistparameter\currentbibtexsession\c!title}}}%
-   \dodoplacebibtexpublications}
+   \edef\currentbibtexsessiontitle{\namedlistparameter\currentbibtexsession\c!title}%
+   \ifx\currentbibtexsessiontitle\empty
+     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=\currentbibtexsession,\c!title={\headtext{\currentbibtexsession}}]}%
+   \else
+     \normalexpanded{\startnamedsection[\v!chapter][\c!reference=\currentbibtexsession,\c!title={\currentbibtexsessiontitle}]}%
+   \fi
+   \dodoplacebibtexpublications
+   \stopnamedsection
+   \endgroup}
 
 \def\doplacebibtexpublications[#1][#2]%
   {\begingroup
    \edef\currentbibtexsession{#1}%
    \let\currentlist\currentbibtexsession
    \setuplist[\currentbibtexsession][\c!criterium=\v!previous,#2]%
-   \dodoplacebibtexpublications}
+   \dodoplacebibtexpublications
+   \endgroup}
 
 \def\dodoplacebibtexpublications
   {\determinelistcharacteristics[\currentbibtexsession]%
    \the\everysetupbibtexlistplacement
    \forgetall
    \typesetbibtexlist
-   \endgroup
    \global\advance\bibtexblock\plusone}
 
 \setvalue{\??pb:\c!numbering:\v!short}#1% todo var s -> short tag