diff --git a/scheme/httpd/surflets/addresses.scm b/scheme/httpd/surflets/addresses.scm
index 9b5a8c6..4f68406 100644
--- a/scheme/httpd/surflets/addresses.scm
+++ b/scheme/httpd/surflets/addresses.scm
@@ -10,15 +10,15 @@
 ;;       (url (address new-url) "Click here to get more")...)                
 
 (define-record-type address :address
-  (make-address-constructor name annotated? annotations)
+  (make-address-record name annotated? annotations)
   (name address-name)
   (annotated? address-annotated?)
   (annotations address-annotations set-address-annotations!))
 
 (define (really-make-address name annotated?)
   (if annotated?
-      (make-address-constructor name annotated? #f)
-      (make-address-constructor name annotated? '())))
+      (make-address-record name annotated? #f)
+      (make-address-record name annotated? '())))
 
 (define (address-add-annotation! address annotation)
   (let ((index (generate-unique-name "val")))