Just add is[tiddler] to the end of your filter:
<$list filter="[{$:/HistoryList}split<title-string>splitbefore<end-title>removesuffix<end-title>reverse[]is[tiddler]]">
Also, you should note that the $:/HistoryList doesn't exist until you've actually navigated to a tiddler.
Thus, when you first load a document, if there are any tiddlers opened by $:/DefaultTiddlers, you
will want to add those to your generated list of titles by adding the contents of $:/StoryList!!list
...and, since *closing* tiddlers doesn't affect the $:/HistoryList, if you close the initial tiddlers
immediately after loading the document, there still won't be anything in the history, even though
default tiddlers were displayed. Thus, you will also want to explicitly add the contents of
$:/DefaultTiddlers to the list, so that they will always be included in the result.
\define history() [{$:/HistoryList}split["title": "]splitbefore["]removesuffix["]reverse[]is[tiddler]] [enlist{$:/StoryList!!list}] [enlist{$:/DefaultTiddlers}]
enjoy,
-e