diff --git a/base/objlist.c b/base/objlist.c
index 804a963..dd28cc7 100644
--- a/base/objlist.c
+++ b/base/objlist.c
@@ -360,7 +360,7 @@ int deleteclass(struct hashlist *p, int file)
 	       ob = nob;
 	       if (ob == NULL) break;
 	       nob = ob->next;
-	       if (ob->type <= FIRSTPIN) break;
+	       if (ob->type != PROPERTY && ob->type <= FIRSTPIN) break;
 	    }
 	    if (lob == NULL)
 	       ptr->cell = ob;