diff --git a/src/modules/files/file.c b/src/modules/files/file.c
index a5041dc33f3418b006b7ddb48678d02869d325b6..77680674654cca5c2abb0471cbc04491a00ffeac 100644
--- a/src/modules/files/file.c
+++ b/src/modules/files/file.c
@@ -5,7 +5,7 @@
 \*/
 
 #include "global.h"
-RCSID("$Id: file.c,v 1.95 1998/05/12 07:32:21 hubbe Exp $");
+RCSID("$Id: file.c,v 1.96 1998/05/12 16:26:40 grubba Exp $");
 #include "fdlib.h"
 #include "interpret.h"
 #include "svalue.h"
@@ -2100,7 +2100,7 @@ static int PIKE_CONCAT(Y,_function_number);
 #define FILE_FUNC(X,Y,Z) \
 void PIKE_CONCAT(Y,_ref) (INT32 args) {\
   struct object *o=REF; \
-  if(!o || !o-prog) error("Stdio.File(): not open.\n"); \
+  if(!o || !o->prog) error("Stdio.File(): not open.\n"); \
   if(o->prog != file_program) \
      error("Wrong type of object in Stdio.File->_fd\n"); \
   apply_low(o, PIKE_CONCAT(Y,_function_number), args); \