   return imagesize;
 #else
   unsigned int imagesize = eeprom_read_word(&image.datasize);
-  if (imagesize == 0 || imagesize == 0xFFFF) error(PSTR("No saved image"));
+  if (imagesize == 0 || imagesize == 0xFFFF) error2(LOADIMAGE, PSTR("no saved image"));
   GlobalEnv = (object *)eeprom_read_word(&image.globalenv);
   GCStack = (object *)eeprom_read_word(&image.gcstack);
   #if SYMBOLTABLESIZE > BUFFERSIZE

      } else {
        if (args == NULL) {
          if (optional) value = nil; 
          else error2(fname, PSTR("has too few arguments"));
        } else { value = first(args); args = cdr(args); }
      }
      push(cons(var,value), *env);


  if (listp(function) && issymbol(car(function), CLOSURE)) {
    function = cdr(function);
    form = closure(TCstart, fname->name, car(function), cdr(function), args, &env);
    pop(GCStack);
    TC = 1;
    goto EVAL;
  } 
  
  error2((int)fname, PSTR("is an illegal function")); return nil;
}

// Print functions
