--- a/src/hash.c	Mon Aug 13 10:15:49 2007 +0200
+++ b/src/hash.c	Mon Aug 13 10:16:16 2007 +0200
@@ -453,12 +453,18 @@
   hentry *limit;
 
   if (hash->zero_set)
-    ((*mf) (0, hash->zero_entry, arg));
+    {
+      if (((*mf) (0, hash->zero_entry, arg)))
+	return;
+    }
 
   for (e = hash->harray, limit = e + hash->size; e < limit; e++)
     {
       if (e->key)
-	((*mf) (e->key, e->contents, arg));
+	{
+	  if (((*mf) (e->key, e->contents, arg)))
+	    return;
+	}
     }
 }