diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm
index ae04c41..1218658 100644
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@@ -1189,7 +1189,7 @@
 	   ((eof-object? l)
 	    (adjust-result rev-result #f '()))
 	   ((regexp-search
-	     (rx (: bos ("#;")))
+	     (rx (: bos (| "#" ";")))
 	     l)
 	    (loop rev-result))
 	   ((regexp-search