Try this:
<$button> test this
<$vars lb="[[" rb="]]">
<$action-sendmessage $message="tm-new-tiddler"
tags={{{ [[Tiddler A]get[tags]enlist-input[]!prefix[#]addprefix<lb>addsuffix<rb>join[ ]] }}} />
</$vars>
</$button>
Notes:
* [Tiddler A]get[tags] gets the tags field value as a single text string
* enlist-input[] converts this to a list of individual tags
* !prefix[#] filters out the undesired tags
* addprefix<lb>addsuffix<rb> adds doubled brackets surrounding each tag (in case the tag names contain spaces
* join[ ] reassembles the individual tags back into a single text string
enjoy,
-e