diff --git a/src/pike_types.c b/src/pike_types.c
index 4b7df8d751609d06bee701bb024b1905022cbbf2..29cb13a15b3270ef2966df083f251eead7fc4194 100644
--- a/src/pike_types.c
+++ b/src/pike_types.c
@@ -4,7 +4,7 @@
 ||| See the files COPYING and DISCLAIMER for more information.
 \*/
 #include "global.h"
-RCSID("$Id: pike_types.c,v 1.45 1998/08/19 07:37:59 hubbe Exp $");
+RCSID("$Id: pike_types.c,v 1.46 1998/09/28 22:30:15 grubba Exp $");
 #include <ctype.h>
 #include "svalue.h"
 #include "pike_types.h"
@@ -1428,6 +1428,10 @@ static int low_check_indexing(char *type, char *index_type, node *n)
   case T_MAPPING:
     return !!low_match_types(type,index_type,0);
 
+  case T_PROGRAM:
+    // FIXME: Should check that the index is a string.
+    return 1;
+
   case T_MIXED:
     return 1;