diff --git a/extra/dns/util/util.factor b/extra/dns/util/util.factor
index 96cf6c0a1e..9ae7389940 100644
--- a/extra/dns/util/util.factor
+++ b/extra/dns/util/util.factor
@@ -28,3 +28,6 @@ TUPLE: packet data addr socket ;
 
 : respond ( packet -- ) [ data>> ] [ addr>> ] [ socket>> ] tri send ;
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: forever ( quot -- ) [ call ] [ forever ] bi ;         inline recursive
\ No newline at end of file