diff --git a/boehm-gc/ChangeLog b/boehm-gc/ChangeLog
index aad88393f8a..69f1685ad92 100644
--- a/boehm-gc/ChangeLog
+++ b/boehm-gc/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-23  Keith Seitz  <keiths@redhat.com>
+
+	* include/gc.h (GC_is_thread_suspended): Declare.
+	* pthread_stop_world.c (GC_is_thread_suspended): New function.
+
 2007-04-03  Jakub Jelinek  <jakub@redhat.com>
 
 	* configure.ac (NO_EXECUTE_PERMISSION): Set by default.
diff --git a/boehm-gc/include/gc.h b/boehm-gc/include/gc.h
index c6c553d8427..c51e017d674 100644
--- a/boehm-gc/include/gc.h
+++ b/boehm-gc/include/gc.h
@@ -1085,5 +1085,6 @@ GC_API void GC_register_has_static_roots_callback
   && !defined(GC_WIN32_THREADS) && !defined(GC_DARWIN_THREADS)
 GC_API void GC_suspend_thread GC_PROTO((pthread_t));
 GC_API void GC_resume_thread GC_PROTO((pthread_t));
+GC_API int GC_is_thread_suspended GC_PROTO((pthread_t));
 #endif
 #endif /* _GC_H */
diff --git a/boehm-gc/pthread_stop_world.c b/boehm-gc/pthread_stop_world.c
index 211e6b89e06..bc3c901dccf 100644
--- a/boehm-gc/pthread_stop_world.c
+++ b/boehm-gc/pthread_stop_world.c
@@ -483,6 +483,14 @@ void GC_resume_thread(pthread_t thread) {
   t -> flags &= ~SUSPENDED;
 }
 
+int GC_is_thread_suspended(pthread_t thread) {
+  GC_thread t = GC_lookup_thread(thread);
+  if (t == NULL)
+    ABORT("querying suspension state of unknown thread");
+
+  return (t -> flags & SUSPENDED);
+}
+
 /* Caller holds allocation lock, and has held it continuously since	*/
 /* the world stopped.							*/
 void GC_start_world()