diff --git a/Test/D04parameter.ztst b/Test/D04parameter.ztst
index 5ffaaa1..05f886b 100644
--- a/Test/D04parameter.ztst
+++ b/Test/D04parameter.ztst
@@ -2401,3 +2401,13 @@ F:behavior, see http://austingroupbugs.net/view.php?id=888
 0:Append to element of associative array on creation
 >one
 >howsyourfathertoday
+
+  local buf=$'asmcmds+=(${(o)$(ls -1 \'.*\' | perl -alne \'\nEND{ print " "; }\'\n)})'
+  local -a arr=( "${(@)${(@Z+cn+)buf}/(#m)?/-> $MATCH}" )
+  print -rl -- "$arr[@]"
+0:$( being closed at next line
+>-> asmcmds+=(
+>-> ${(o)$(ls -1 '.*' | perl -alne '
+>END{ print " "; }'
+>)}
+>-> )