diff --git a/kwarc/recomm.sty b/kwarc/recomm.sty
index a5737da581709d44bb213bc819789aa92a2a1d99..d770c7fa0fe4dbad5526f3293c352fdd67ddfa61 100644
--- a/kwarc/recomm.sty
+++ b/kwarc/recomm.sty
@@ -25,11 +25,16 @@
 % make the apostroh configurable. 
 \def\apos{'}
 
-%support for names and their parts. 
-\newcommand\fullname[3][]{%
-\def\@test{#1}\def\@fem{female}\ifx\@test\@fem\femtrue\fi
-\def\full{#2 #3\xspace}\def\first{#2\xspace}\def\last{#3\xspace}
-\def\fulls{#2 #3\apos{s}\xspace}\def\firsts{#2\apos{s}\xspace}\def\lasts{#3\apos{s}\xspace}}
+% e.g. \fullname[f]{Andrea}[Elisabeth]{Kohlhase}
+\newcommand\fullname[2][]{
+  \def\@test{#1}\def\@fem{female}\ifx\@test\@fem\femtrue\fi
+  \def\first{#2\xspace}\def\firsts{#2\apos{s}\xspace}
+  \@fullname}
+\newcommand\@fullname[2][]{
+  \def\mid{#1\xspace}
+  \def\last{#2\xspace}\def\lasts{#2\apos{s}\xspace}
+  \def\full{\first\last}\def\Full{\first\mid\last}
+  \def\fulls{\full\apos{s}\xspace}\def\Fulls{\Full\apos{s}\xspace}}
 \newcommand\programname[1]{\def\@program{#1}}
 \newcommand\program{\@program\xspace}
 \newcommand\institutionname[1]{\def\@institution{#1}}