*** empty log message ***

diff --git a/allParam/tcl/tclParam.c b/allParam/tcl/tclParam.c
index a2ba3d75eea515e321b23902324ebfad9f83dcdc..3e5b2b25a7a6d365fd4a0aa3c589be59ecce0d33 100644 (file)
--- a/allParam/tcl/tclParam.c
+++ b/allParam/tcl/tclParam.c
@@ -269,7 +269,7 @@ int Param_getBlob(const Param *my, const char *name, const char *idx, size_t *si
 
 int Param_storeInt(const Param *my, const char *name, const char *idx, unsigned long int value)
 {
-       char buf[strlen("set ()\t\n") + 2 * PARAM_MAX_NAME_LEN + PARAM_MAX_VALUE_LEN];
+       char buf[7 + 2 * PARAM_MAX_NAME_LEN + PARAM_MAX_VALUE_LEN];
        sprintf(buf, "set %s(%s)\t%lu\n", name, idx, value);
        fprintf(((TclParam *) (my->specParam))->store, buf);
        fflush(((TclParam *) (my->specParam))->store);
@@ -279,7 +279,7 @@ int Param_storeInt(const Param *my, const char *name, const char *idx, unsigned
 
 int Param_storeString(const Param *my, const char *name, const char *idx, const char *value)
 {
-       char buf[strlen("set ()\t\n") + 2 * PARAM_MAX_NAME_LEN + PARAM_MAX_VALUE_LEN];
+       char buf[7 + 2 * PARAM_MAX_NAME_LEN + PARAM_MAX_VALUE_LEN];
        sprintf(buf, "set %s(%s)\t\"%s\"\n", name, idx, value);
        fprintf(((TclParam *) (my->specParam))->store, buf);
        fflush(((TclParam *) (my->specParam))->store);