diff --git a/code/defines/procs/helpers.dm b/code/defines/procs/helpers.dm
index f5c8ad8149..5ee2993127 100644
--- a/code/defines/procs/helpers.dm
+++ b/code/defines/procs/helpers.dm
@@ -1253,12 +1253,14 @@ proc/listclearnulls(list/list)
 /proc/do_after(mob/M as mob, time as num)
 	var/turf/T = M.loc
 	var/holding = M.equipped()
-	sleep(time)
-	if(M)
-		if ((M.loc == T && M.equipped() == holding && !( M.stat )))
-			return 1
-		else
-			return 0
+	for(var/i=0, i<time)
+		if(M)
+			if ((M.loc == T && M.equipped() == holding && !( M.stat )))
+				i++
+				sleep(1)
+			else
+				return 0
+	return 1
 
 /proc/hasvar(var/datum/A, var/varname)
 	//Takes: Anything that could possibly have variables and a varname to check.