diff --git a/httpd-access-control.scm b/httpd-access-control.scm
index b9689d6..aea2d8e 100644
--- a/httpd-access-control.scm
+++ b/httpd-access-control.scm
@@ -6,9 +6,6 @@
 ;;; Right now, it is primarily useful for running the server through a
 ;;; web accelerator
 
-;;; Also notes that this code doesn't work in vanilla 0.4.4 as
-;;; host-info is broken.
-
 (define (access-denier . hosts)
   (lambda (info)
     (and (any? (lambda (host)
@@ -58,7 +55,7 @@
 		(host-info:aliases info))))))
 
 (define normalize-host
-  (let ((split (infix-splitter "\\."))
+  (let ((split (infix-splitter (make-regexp "\\.")))
 	(number (make-regexp "[0-9]+")))
     (lambda (host)
       (let ((components (split host)))