diff --git a/src/storage.c b/src/storage.c
index 9fb218b..67a0429 100644
--- a/src/storage.c
+++ b/src/storage.c
@@ -252,7 +252,8 @@ LispPTR dremove(LispPTR x, LispPTR l) {
       rplaca(l, car(cdr(l)));
       rplacd(l, cdr(cdr(l)));
       return (dremove(x, l));
-    }
+    } else 
+        return (NIL);
   } else {
     z = l;
   lp: