--- yeti_tiff/yeti_tiff.c.orig	2017-05-10 20:57:25.000000000 +0200
+++ yeti_tiff/yeti_tiff.c	2017-05-10 21:03:31.000000000 +0200
@@ -173,7 +173,7 @@
 static void on_free(void *);
 static void on_print(void *);
 static void on_eval(void *, int);
-static void on_extract(void *, long);
+static void on_extract(void *, char*);
 static object_t *get_object(int iarg);
 
 static y_userobj_t tiff_class = {
@@ -437,9 +437,9 @@
   }
 }
 
-static void on_extract(void *addr, long index)
+static void on_extract(void *addr, char* name)
 {
-  push_tag((object_t *)addr, index);
+  push_tag((object_t *)addr, yget_global(name, 0));
 }
 
 static void on_eval(void *addr, int argc)