Porting Zuhayr's Fixes For Forensics

code/game/objects/effects/decals/Cleanable/humans.dm

@@ -34,6 +34,7 @@ var/global/list/image/splatter_cache=list()
 		invisibility = 100
 		amount = 0
 		processing_objects -= src
+	..(ignore=1)
 
 /obj/effect/decal/cleanable/blood/Destroy()
 	for(var/datum/disease/D in viruses)

code/game/objects/effects/decals/Cleanable/tracks.dm

@@ -121,7 +121,8 @@ var/global/list/image/fluidtrack_cache=list()
 				updated=1
 
 		dirs |= comingdir|realgoing
-		blood_DNA |= DNA.Copy()
+		if (islist(blood_DNA))
+			blood_DNA |= DNA.Copy()
 		if(updated)
 			update_icon()
 
@@ -169,4 +170,4 @@ var/global/list/image/fluidtrack_cache=list()
 	desc = "They look like tracks left by wheels."
 	gender = PLURAL
 	random_icon_states = null
-	amount = 0
+	amount = 0

code/game/objects/effects/decals/cleanable.dm

@@ -1,8 +1,11 @@
 /obj/effect/decal/cleanable
 	var/list/random_icon_states = list()
 
-/obj/effect/decal/cleanable/clean_blood()
-	qdel(src)
+/obj/effect/decal/cleanable/clean_blood(var/ignore = 0)
+	if(!ignore)
+		qdel(src)
+		return
+	..()
 
 /obj/effect/decal/cleanable/New()
 	if (random_icon_states && length(src.random_icon_states) > 0)