diff --git a/src/c/stacks.d b/src/c/stacks.d
index f7468dabd..42a77b7d8 100644
--- a/src/c/stacks.d
+++ b/src/c/stacks.d
@@ -418,13 +418,6 @@ get_ihs_ptr(cl_index n)
 	return p;
 }
 
-cl_object
-ihs_top_function_name(void)
-{
-	cl_env_ptr env = ecl_process_env();
-	return ihs_function_name(env->ihs_top->function);
-}
-
 cl_object
 si_ihs_top(void)
 {
diff --git a/src/h/stacks.h b/src/h/stacks.h
index aaccb19cb..1d2392153 100755
--- a/src/h/stacks.h
+++ b/src/h/stacks.h
@@ -203,8 +203,6 @@ typedef struct ecl_ihs_frame {
 	if (r) __the_env->ihs_top = r->next;		\
 } while(0)
 
-extern ECL_API cl_object ihs_top_function_name(void);
-
 /***************
  * FRAME STACK
  ***************/