Additional fix in profile.c.

2 files changed, 3 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index c7aa4514..223c798f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,7 +4,8 @@
 	(is_binary): Change return type to bool.
 	(is_scalar): New function.
 	(pp_concat): New function to handle concatenation operator better.
-	(pprint): Call it at case Op_concat.
+	(pprint): Call it at case Op_concat. Fix Op_K_delete if multiple
+	indexes to separate with "][".
 	General: Add leading comments as needed.
 
 2013-05-28         Arnold D. Robbins     <arnold@skeeve.com>
diff --git a/profile.c b/profile.c
index 095de099..d3a93dbd 100644
--- a/profile.c
+++ b/profile.c
@@ -443,7 +443,7 @@ cleanup:
 			array = t1->pp_str;
 			if (pc->expr_count > 0) {
 				char *sub;
-				sub = pp_list(pc->expr_count, NULL, ", ");
+				sub = pp_list(pc->expr_count, NULL, pc->expr_count > 1 ? "][" : ", ");
 				fprintf(prof_fp, "%s %s[%s]", op2str(Op_K_delete), array, sub);
 				efree(sub);
 			} else