diff --git a/utils/SubDomain.pm b/utils/SubDomain.pm
index 3545462ff..c13411f5e 100755
--- a/utils/SubDomain.pm
+++ b/utils/SubDomain.pm
@@ -5616,7 +5616,7 @@ sub var_transform($) {
 sub writelistvars ($$) {
     my ($prof_data, $depth) = @_;
 
-    return write_pair($prof_data, $depth, '', 'lvar', "", " = ", ",", \&var_transform);
+    return write_pair($prof_data, $depth, '', 'lvar', "", " = ", "", \&var_transform);
 }
 
 sub writecap_rules ($$$) {