Index: obj_pstk_proto.c
===================================================================
--- obj_pstk_proto.c	(revision 20430)
+++ obj_pstk_proto.c	(revision 20431)
@@ -49,6 +49,7 @@
 void pcb_pstk_proto_free_fields(pcb_pstk_proto_t *dst)
 {
 #warning TODO: do a full field free here
+	dst->in_use = 0;
 }
 
 void pcb_pstk_proto_update(pcb_pstk_proto_t *dst)
@@ -1135,6 +1136,14 @@
 	pcb_pstk_proto_del_shape_idx(proto, idx);
 }
 
+void pcb_pstk_proto_del(pcb_data_t *data, pcb_cardinal_t proto_id)
+{
+	pcb_pstk_proto_t *proto = pcb_vtpadstack_proto_get(&data->ps_protos, proto_id, 0);
+	if (proto == NULL)
+		return;
+	pcb_pstk_proto_free_fields(proto);
+}
+
 pcb_cardinal_t *pcb_pstk_proto_used_all(pcb_data_t *data, pcb_cardinal_t *len_out)
 {
 	pcb_cardinal_t len, n, *res;