diff --git a/src/c/interpreter.d b/src/c/interpreter.d
index bf435a268..4bea49309 100644
--- a/src/c/interpreter.d
+++ b/src/c/interpreter.d
@@ -1333,7 +1333,9 @@ ecl_interpret(cl_object frame, cl_object closure, cl_object bytecodes)
   }
 }
 
-@(defun si::interpreter-stack ()
-@
-  @(return ECL_NIL);
-@)
+cl_object
+si_interpreter_stack ()
+{
+  cl_env_ptr env = ecl_process_env();
+  ecl_return1(env, ECL_NIL);
+}
diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h
index 921ca5715..f5da4b072 100644
--- a/src/c/symbols_list.h
+++ b/src/c/symbols_list.h
@@ -1217,7 +1217,7 @@ cl_symbols[] = {
 {SYS_ "IHS-NEXT" ECL_FUN("si_ihs_next", si_ihs_next, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
 {SYS_ "IHS-PREV" ECL_FUN("si_ihs_prev", si_ihs_prev, 1) ECL_VAR(SI_ORDINARY, OBJNULL)},
 {SYS_ "IHS-TOP" ECL_FUN("si_ihs_top", si_ihs_top, 0) ECL_VAR(SI_ORDINARY, OBJNULL)},
-{SYS_ "INTERPRETER-STACK" ECL_FUN("si_interpreter_stack", si_interpreter_stack, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
+{SYS_ "INTERPRETER-STACK" ECL_FUN("si_interpreter_stack", si_interpreter_stack, 0) ECL_VAR(SI_ORDINARY, OBJNULL)},
 {SYS_ "LINK-FROM" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
 {SYS_ "LINK-TO" ECL_FUN(NULL, NULL, -1) ECL_VAR(SI_ORDINARY, OBJNULL)},
 {SYS_ "LOAD-SOURCE" ECL_FUN("si_load_source", si_load_source, 4) ECL_VAR(SI_ORDINARY, OBJNULL)},
diff --git a/src/h/external.h b/src/h/external.h
index a0276837d..315237a51 100755
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -531,7 +531,7 @@ extern ECL_API cl_object si_eval_with_env _ECL_ARGS((cl_narg narg, cl_object for
 
 /* interpreter.c */
 
-extern ECL_API cl_object si_interpreter_stack _ECL_ARGS((cl_narg narg, ...));
+extern ECL_API cl_object si_interpreter_stack();
 extern ECL_API cl_object ecl_stack_frame_open(cl_env_ptr env, cl_object f, cl_index size);
 extern ECL_API void ecl_stack_frame_push(cl_object f, cl_object o);
 extern ECL_API void ecl_stack_frame_push_values(cl_object f);