diff --git a/src/interpret.c b/src/interpret.c
index c7d4dd90882615fe451553a6346487d536923530..543943aaf8ed6a96fcb68b9b5e5e5f91e6d7a6b8 100644
--- a/src/interpret.c
+++ b/src/interpret.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: interpret.c,v 1.79 1998/04/17 05:08:02 hubbe Exp $");
+RCSID("$Id: interpret.c,v 1.80 1998/04/20 18:43:08 grubba Exp $");
 #include "interpret.h"
 #include "object.h"
 #include "program.h"
@@ -1280,7 +1280,7 @@ static int eval_instruction(unsigned char *pc)
       LOOP(F_INC_NEQ_LOOP, ++, !=, f_add(2), !is_eq);
       LOOP(F_DEC_NEQ_LOOP, --, !=, o_subtract(), !is_eq);
 
-      CASE(F_FOREACH) /* array, lvalue , i */
+      CASE(F_FOREACH) /* array, lvalue, X, i */
       {
 	if(sp[-4].type != T_ARRAY)
 	  PIKE_ERROR("foreach", "Bad argument 1.\n", sp-3, 1);