diff --git a/main.rkt b/main.rkt
index f2a8843..d827945 100644
--- a/main.rkt
+++ b/main.rkt
@@ -84,8 +84,8 @@
 (define (file->ini file*)
   (let* ((file (get-ini-file file*))
 	 (lines (if (file-exists? file) (file->lines file) '()))
-         (re-section #px"^\\[([a-zA-Z0-9_-]+)\\]$")
-         (re-keyval #px"^([a-zA-Z0-9_-]+)[=](.*)$")
+         (re-section #px"^\\[([a-zA-Z0-9_-.]+)\\]$")
+         (re-keyval #px"^([a-zA-Z0-9_-.]+)[=](.*)$")
          (re-comment #px"^[;](.*)$"))
     (letrec ((f (lambda (sections section lines)
                   (if (null? lines)