--- module/srfi/srfi-45.scm	2011-02-08 22:38:34.000000000 -0500
+++ module/srfi/srfi-45.scm	2011-07-23 20:24:51.000000000 -0400
@@ -37,15 +37,21 @@
              lazy
              force
              eager)
-  #:replace (delay force)
-  #:use-module (srfi srfi-9))
+  #:replace (delay force))
 
-(define-record-type promise (make-promise val) promise?
-  (val promise-val promise-val-set!))
+(define <promise> (make-record-type "promise" '(val)))
+(define make-promise (record-constructor <promise>))
+(define promise? (record-predicate <promise>))
+(define promise-val (record-accessor <promise> 'val))
+(define promise-val-set! (record-modifier <promise> 'val))
 
-(define-record-type value (make-value tag proc) value?
-  (tag value-tag value-tag-set!)
-  (proc value-proc value-proc-set!))
+(define <value> (make-record-type "value" '(tag proc)))
+(define make-value (record-constructor <value>))
+(define value? (record-predicate <value>))
+(define value-tag (record-accessor <value> 'tag))
+(define value-tag-set! (record-modifier <value> 'tag))
+(define value-proc (record-accessor <value> 'proc))
+(define value-proc-set! (record-modifier <value> 'proc))
 
 (define-syntax lazy
   (syntax-rules ()