diff --git a/src/mzscheme/src/mzrt.c b/src/mzscheme/src/mzrt.c
index 730186d5ed..67632fd842 100644
--- a/src/mzscheme/src/mzrt.c
+++ b/src/mzscheme/src/mzrt.c
@@ -222,7 +222,7 @@ int mzrt_rwlock_rdlock(mzrt_rwlock *lock) {
 }
 
 int mzrt_rwlock_wrlock(mzrt_rwlock *lock) {
-  return pthread_rwlock_rdlock(&lock->lock);
+  return pthread_rwlock_wrlock(&lock->lock);
 }
 
 int mzrt_rwlock_tryrdlock(mzrt_rwlock *lock) {