diff --git a/changelog b/changelog
index 7608e21..ea3d202 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20071014 acr src/algebra/axserver.spad use getContentType(pathvar)
 20071013 acr license/license.ralfs license rewrite
 20071013 acr src/interp/http.lisp faster page service
 20071013 acr src/algebra/axserver.spad faster page service
diff --git a/src/algebra/axserver.spad.pamphlet b/src/algebra/axserver.spad.pamphlet
index 791d851..741840f 100644
--- a/src/algebra/axserver.spad.pamphlet
+++ b/src/algebra/axserver.spad.pamphlet
@@ -95,7 +95,7 @@ AxiomServer: public == private where
        WriteLine("")$Lisp
        WriteLine("getFile begin")$Lisp
        if not null? PATHNAME_-NAME(PATHNAME(pathvar)$Lisp)$Lisp then
-           contentType:String := "application/xhtml+xml"
+           contentType:String := getContentType(pathvar)
 	   q := Open(pathvar)$Lisp
 	   if null? q then
 	     q := MAKE_-STRING_-INPUT_-STREAM("File doesn't exist")$Lisp