- use Tcl library for splitting and merging argument lists

sicsobj.c

@@ -46,7 +46,8 @@ static void saveSICSNode(pHdb node, char *prefix, FILE * fd)
   hdbValue v;
   pDynString data = NULL;
   char *cmd;
-  
+  char *str, *value;
+
   cmd = GetHdbProp(node, "creationCmd");
   if (cmd != NULL) {
     GetHdbPath(node, path, sizeof path);
@@ -57,8 +58,11 @@ static void saveSICSNode(pHdb node, char *prefix, FILE * fd)
     GetHipadabaPar(node, &v, NULL);
     data = formatValue(v, node);
     if (data != NULL) {
-      fprintf(fd, "%s %s\n", prefix, GetCharArray(data));
+      value = GetCharArray(data);
+      str = Arg2Tcl(1, &value, NULL, 0);
+      fprintf(fd, "%s %s\n", prefix, str);
       DeleteDynString(data);
+      free(str);
     }
     ReleaseHdbValue(&v);
     child = node->child;
@@ -92,6 +96,7 @@ int SaveSICSOBJ(void *data, char *name, FILE * fd)
       saveSICSNode(node, prefix, fd);
       node = node->next;
     }
+    fprintf(fd, "\n");
   }
   return 1;
 }