diff --git a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
index 177fd4c..bec467d 100644
--- a/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
+++ b/scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
@@ -7,7 +7,7 @@
 	handle-fatal-error
 	httpd-responses
 	(subset srfi-1 (iota))
-	defrec-package
+	define-record-types
 	locks
 	let-opt
 	)
@@ -17,10 +17,12 @@
     ;; profiling. Note to get the resulting picture, gnuplot must be
     ;; installed.
 
-    (define-record state
-      file-name
-      file-names-to-delete
-      (counter 0))
+    (define-record-type state :state
+      (make-state file-name file-names-to-delete counter)
+      state?
+      (file-name state:file-name set-state:file-name)
+      (file-names-to-delete state:file-names-to-delete set-state:file-names-to-delete)
+      (counter state:counter set-state:counter))
     
     (define (state-file-name)
       (state:file-name (get-servlet-data)))
@@ -206,7 +208,7 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
 
     (define (main req)
       ;; We'll fill this out soon.
-      (set-servlet-data! (make-state #f #f))
+      (set-servlet-data! (make-state #f #f 0))
       (reset-profiling-state!)
       (profile req))