--- futures-base.scm.orig	2005-11-05 16:20:38.000000000 +0000
+++ futures-base.scm	2005-11-05 16:05:09.000000000 +0000
@@ -4,9 +4,9 @@
 
 (declare
   (fixnum)
-  (export future:make-future future? force) )
+  (export future:make-future future? force future-condition future-failed? future-complete? future-thread) )
 
-(define-record future results exn failed? %complete? thread)
+(define-record future results condition failed? complete? thread)
 
 (define (future:make-future thunk)
   (let* ((f (make-future '() #f #f #f #f))
@@ -14,10 +14,10 @@
 	     (lambda ()
 	       (handle-exceptions ex
 		   (begin
-		     (future-exn-set! f ex)
+		     (future-condition-set! f ex)
 		     (future-failed?-set! f #t) )
 		 (future-results-set! f (receive (thunk))) )
-	       (future-%complete?-set! f #t) ) ) ) )
+	       (future-complete?-set! f #t) ) ) ) )
     (future-thread-set! f t)
     (thread-start! t)
     f) )
@@ -27,8 +27,8 @@
     (lambda (f)
       (if (future? f)
 	  (let loop ()
-	    (cond ((future-failed? f) (raise (future-exn f)))
-		  ((future-%complete? f) (apply values (future-results f)))
+	    (cond ((future-failed? f) (raise (future-condition f)))
+		  ((future-complete? f) (apply values (future-results f)))
 		  (else
 		   (thread-join! (future-thread f))
 		   (loop) ) ) )