Index: kitsh/buildsrc/kitsh-0.0/cvfs_data.c
==================================================================
--- kitsh/buildsrc/kitsh-0.0/cvfs_data.c
+++ kitsh/buildsrc/kitsh-0.0/cvfs_data.c
@@ -92,19 +92,19 @@
 	}
 
 	ret_list = Tcl_NewListObj(sizeof(ret_list_items) / sizeof(ret_list_items[0]), ret_list_items);
 
 	Tcl_IncrRefCount(ret_list);
+
+	Tcl_SetObjResult(interp, ret_list);
+
+	Tcl_DecrRefCount(ret_list);
 
 	for (idx = 0; idx < (sizeof(ret_list_items) / sizeof(ret_list_items[0])); idx++) {
 		Tcl_DecrRefCount(ret_list_items[idx]);
 	}
 
-	Tcl_SetObjResult(interp, ret_list);
-
-	Tcl_DecrRefCount(ret_list);
-
 	return(TCL_OK);
 }
 
 static int getData(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
 	struct cvfs_data *finfo = NULL;