diff --git a/collects/web-server/configuration.ss b/collects/web-server/configuration.ss
index 3d4ee76cdc..2b760dbafa 100644
--- a/collects/web-server/configuration.ss
+++ b/collects/web-server/configuration.ss
@@ -32,13 +32,15 @@
   
   ; load-developer-configuration : path -> configuration
   (define (load-developer-configuration table-file-name)
-    (complete-developer-configuration (directory-part table-file-name)
-                                      (get-configuration table-file-name)))
+    (complete-developer-configuration
+     (directory-part table-file-name)
+     (get-configuration table-file-name)))
   
   ; build-developer-configuration : tst -> configuration-table
   (define (build-developer-configuration s-expr)
-    (complete-developer-configuration (directory-part default-configuration-table-path)
-                                      (parse-configuration-table s-expr)))
+    (complete-configuration ; used to be: complete-developer-configuration
+     (directory-part default-configuration-table-path)
+     (parse-configuration-table s-expr)))
   
   ; : (listof (cons sym TST)) -> configuration
   ; more here - this is ugly.  It also does not catch "unbound identifiers" since I use symbols.
@@ -71,4 +73,4 @@
    [update-configuration (configuration? (listof (cons/c symbol? any/c)) . -> . configuration?)]
    [load-configuration-sexpr (list? . -> . configuration?)]
    [load-configuration (path-string? . -> . configuration?)]
-   [load-developer-configuration (path-string? . -> . configuration?)]))
\ No newline at end of file
+   [load-developer-configuration (path-string? . -> . configuration?)]))