diff --git a/THANKS b/THANKS
index ddb11c14d..faef9b6a6 100644
--- a/THANKS
+++ b/THANKS
@@ -183,6 +183,7 @@ For fixes or providing information which led to a fix:
 	Andreas Vögele
         Michael Talbot-Wilson
         Michael Tuexen
+            Xin Wang
          Thomas Wawrzinek
         Mark H. Weaver
           Göran Weinholt
diff --git a/module/srfi/srfi-18.scm b/module/srfi/srfi-18.scm
index 4921a95d7..5b5b2a686 100644
--- a/module/srfi/srfi-18.scm
+++ b/module/srfi/srfi-18.scm
@@ -1,6 +1,6 @@
 ;;; srfi-18.scm --- Multithreading support
 
-;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2008, 2009, 2010, 2014 Free Software Foundation, Inc.
 ;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -82,7 +82,7 @@
  uncaught-exception?
  uncaught-exception-reason
  )
-  :re-export (thread? mutex? condition-variable?)
+  :re-export (current-thread thread? mutex? condition-variable?)
   :replace (current-time 
 	    make-thread 
 	    make-mutex 
@@ -380,4 +380,4 @@
 	 (cons (inexact->exact fx)
 	       (inexact->exact (truncate (* (- x fx) 1000000)))))))
 
-;; srfi-18.scm ends here
\ No newline at end of file
+;; srfi-18.scm ends here