1 files changed, 2 insertions, 1 deletions
diff --git a/gc.c b/gc.c
index acb81b00dc..66f095c09e 100644
--- a/gc.c
+++ b/gc.c
@@ -1081,7 +1081,8 @@ gc_mark_children(VALUE ptr, int lev)
 	break;
 
       case T_FILE:
-	gc_mark(obj->as.file.fptr->tied_io_for_writing, lev);
+        if (obj->as.file.fptr)
+            gc_mark(obj->as.file.fptr->tied_io_for_writing, lev);
         break;
 
       case T_REGEXP: