diff --git a/src/write.c b/src/write.c
index 61551b1a..a2e78181 100644
--- a/src/write.c
+++ b/src/write.c
@@ -333,6 +333,9 @@ write_core(struct writer_control *p, pic_value obj)
   case PIC_TT_DICT:
     xfprintf(file, "#<dict %p>", pic_ptr(obj));
     break;
+  case PIC_TT_BLK:
+    xfprintf(file, "#<blk %p>", pic_ptr(obj));
+    break;
   }
 }