diff --git a/common/print.c b/common/print.c
index 2a212a6e..56463905 100644
--- a/common/print.c
+++ b/common/print.c
@@ -160,3 +160,25 @@ void dump_raw (buf, len)
 	note (lbuf);
 }
 
+void hash_dump (table)
+	struct hash_table *table;
+{
+	int i;
+	struct hash_bucket *bp;
+
+	if (!table)
+		return;
+
+	for (i = 0; i < table -> hash_count; i++) {
+		if (!table -> buckets [i])
+			continue;
+		note ("hash bucket %d:", i);
+		for (bp = table -> buckets [i]; bp; bp = bp -> next) {
+			if (bp -> len)
+				dump_raw (bp -> name, bp -> len);
+			else
+				note (bp -> name);
+		}
+	}
+}
+
diff --git a/print.c b/print.c
index 2a212a6e..56463905 100644
--- a/print.c
+++ b/print.c
@@ -160,3 +160,25 @@ void dump_raw (buf, len)
 	note (lbuf);
 }
 
+void hash_dump (table)
+	struct hash_table *table;
+{
+	int i;
+	struct hash_bucket *bp;
+
+	if (!table)
+		return;
+
+	for (i = 0; i < table -> hash_count; i++) {
+		if (!table -> buckets [i])
+			continue;
+		note ("hash bucket %d:", i);
+		for (bp = table -> buckets [i]; bp; bp = bp -> next) {
+			if (bp -> len)
+				dump_raw (bp -> name, bp -> len);
+			else
+				note (bp -> name);
+		}
+	}
+}
+