Hej,
for all seeking a solution:
It can be done with Thomas Elingers superbe Extract-plugin:
http://tid.li/tw5/hacks.html#Extract%20Macro
\define extrans0()
<$macrocall $name="extract" start="{{" end="}}" prefix="[[" suffix="]]"
mode="inline" limit="no"/>
\end
\define exitrans1()
<$list filter="[list[$:/StoryList]!is[system]]">
<<extrans0>></$list>+[!has[created]]
\end
<$wikify name="trans" text=<<exitrans1>>>
<$list filter=<<trans>>>
<<currentTiddler>></$list>
</$wikify>
cheers Jan