--- libaitio/src/exec.c	2013/12/15 23:27:34	1.2.2.1
+++ libaitio/src/exec.c	2013/12/18 12:38:55	1.2.2.2
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: exec.c,v 1.2.2.1 2013/12/15 23:27:34 misho Exp $
+* $Id: exec.c,v 1.2.2.2 2013/12/18 12:38:55 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -316,7 +316,7 @@ io_progOpen2(prog_t * __restrict prg)
 				e_pclose(f);
 				break;
 			} else
-				array_Set(prg->prog_fds, i, f);
+				array_Set(prg->prog_fds, i, (intptr_t) f);
 			clrbit(prg->prog_used, i);
 			prg->prog_cnum++;
 			ret = i;
@@ -372,7 +372,7 @@ io_progOpen(prog_t * __restrict prg, u_int execNum)
 				ret = -1;
 				break;
 			} else
-				array_Set(prg->prog_fds, i, f);
+				array_Set(prg->prog_fds, i, (intptr_t) f);
 			clrbit(prg->prog_used, i);
 			prg->prog_cnum++;
 			ret++;