diff --git a/lib/modules/ADT.pmod/queue.pike b/lib/modules/ADT.pmod/queue.pike
index 9e0ba58e974c5a33aa7f0b733497dc8270f756f4..8841f70997f36129e1ae79e25dc306dfea20ef83 100644
--- a/lib/modules/ADT.pmod/queue.pike
+++ b/lib/modules/ADT.pmod/queue.pike
@@ -44,6 +44,11 @@ mixed peek()
   return (tail < head) && l[tail];
 }
 
+int is_empty()
+{
+  return (tail == head);
+}
+
 void flush()
 {
   create();