diff --git a/inc/storagedefs.h b/inc/storagedefs.h
index 85e3120..5fc7109 100644
--- a/inc/storagedefs.h
+++ b/inc/storagedefs.h
@@ -1,7 +1,6 @@
 #ifndef STORAGEDEFS_H
 #define STORAGEDEFS_H 1
 void checkfor_storagefull(register unsigned int npages);
-LispPTR dremove(LispPTR x, LispPTR l);
 LispPTR newpage(LispPTR base);
 void init_storage(void);
 #endif
diff --git a/src/storage.c b/src/storage.c
index 67a0429..63001ec 100644
--- a/src/storage.c
+++ b/src/storage.c
@@ -45,6 +45,7 @@ static const char *id =
 
 static void advance_array_seg(register unsigned int nxtpage);
 static void advance_storagestate(DLword flg);
+static LispPTR dremove(LispPTR x, LispPTR l);
 static void set_storage_state(void);
 
 /*****************************************************************/
@@ -242,7 +243,7 @@ static void set_storage_state(void) {
 
 } /* set_storage_state() end */
 
-LispPTR dremove(LispPTR x, LispPTR l) {
+static LispPTR dremove(LispPTR x, LispPTR l) {
   LispPTR z;
 
   if (Listp(l) == NIL)