diff --git a/src/builtin_functions.c b/src/builtin_functions.c
index 30a8275f92388415e7802da52657946f29329e0b..9fa695c7363c7feb9b1d249680077bb3b4cd112c 100644
--- a/src/builtin_functions.c
+++ b/src/builtin_functions.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: builtin_functions.c,v 1.52 1997/11/02 19:27:27 grubba Exp $");
+RCSID("$Id: builtin_functions.c,v 1.53 1997/11/02 19:29:34 grubba Exp $");
 #include "interpret.h"
 #include "svalue.h"
 #include "pike_macros.h"
@@ -1767,7 +1767,7 @@ static void f_get_prof_info(INT32 args)
 
   push_int(prog->num_clones);
 
-  for(num_functions=i=0; i<prog->num_identifiers; i++) {
+  for(num_functions=i=0; i<(int)prog->num_identifiers; i++) {
     if (IDENTIFIER_IS_FUNCTION(prog->identifiers[i].identifier_flags)) {
       num_functions++;
       prog->identifiers[i].name->refs++;