diff --git a/src/interpret.h b/src/interpret.h
index 4094f9691fb2e9267768218bdedcda82b3f108be..23b64f597a45efc3e7ab1be5daf139965d0539dd 100644
--- a/src/interpret.h
+++ b/src/interpret.h
@@ -5,7 +5,7 @@
 \*/
 
 /*
- * $Id: interpret.h,v 1.58 2000/08/03 17:55:50 grubba Exp $
+ * $Id: interpret.h,v 1.59 2000/08/07 16:02:47 grubba Exp $
  */
 #ifndef INTERPRET_H
 #define INTERPRET_H
@@ -174,11 +174,23 @@ enum apply_type
    APPLY_LOW    /* arg1 is the object pointer,(int)arg2 the function */
 };
 
+#ifdef __ECL
+static inline void apply_low(struct object *o, ptrdiff_t fun, INT32 args)
+{
+  mega_apply(APPLY_LOW, args, (void*)o, (void*)fun);
+}
+
+static inline void strict_apply_svalue(struct svalue *sval, INT32 args)
+{
+  mega_apply(APPLY_SVALUE, args, (void*)sval, 0);
+}
+#else /* !__ECL */
 #define apply_low(O,FUN,ARGS) \
   mega_apply(APPLY_LOW, (ARGS), (void*)(O),(void*)(FUN))
 
 #define strict_apply_svalue(SVAL,ARGS) \
   mega_apply(APPLY_SVALUE, (ARGS), (void*)(SVAL),0)
+#endif /* __ECL */
 
 #define APPLY_MASTER(FUN,ARGS) \
 do{ \