diff --git a/inc/subrdefs.h b/inc/subrdefs.h
index 205f327..fa69cb4 100644
--- a/inc/subrdefs.h
+++ b/inc/subrdefs.h
@@ -1,6 +1,4 @@
 #ifndef SUBRDEFS_H
 #define SUBRDEFS_H 1
-#include "lispemul.h" /* for LispPTR */
-char *atom_to_str(LispPTR atom_index);
 void OP_subrcall(int subr_no, int argnum);
 #endif
diff --git a/src/subr.c b/src/subr.c
index 585ad29..7c9ee9e 100644
--- a/src/subr.c
+++ b/src/subr.c
@@ -77,15 +77,6 @@ extern LispPTR *PENDINGINTERRUPT68k;
 */
 /***********************************************************/
 
-char *atom_to_str(LispPTR atom_index) {
-  PNCell *pnptr;
-  char *pname_base;
-
-  pnptr = (PNCell *)GetPnameCell(atom_index);
-  pname_base = (char *)NativeAligned2FromLAddr(pnptr->pnamebase);
-  return (pname_base + 1);
-} /*atom_to_str*/
-
 #define POP_SUBR_ARGS                                       \
   do {                                                      \
     args[0] = NIL_PTR;                                      \