diff --git a/scheme/httpd/info-gateway.scm b/scheme/httpd/info-gateway.scm
index 18a49ff..40dc5df 100644
--- a/scheme/httpd/info-gateway.scm
+++ b/scheme/httpd/info-gateway.scm
@@ -119,7 +119,13 @@
 	     (values parse-info
 		     (unescape-uri (http-url-search url)))))
 	  (else
-	   (let ((info-path ((infix-splitter ":") (getenv "INFOPATH"))))
+	   (let ((info-path 
+		  ((infix-splitter ":") 
+		   (or (getenv "INFOPATH")
+		       (begin 
+			 (format (current-error-port)
+				 "~%Warning: environment variable INFOPATH is unset.~%")
+			 "")))))
 	     (lambda (url)
 	       (values info-path
 		       (unescape-uri (http-url-search url))))))))