diff --git a/src/tests/regressions/multiprocessing.lsp b/src/tests/regressions/multiprocessing.lsp
index 20d6b6291..7278725bd 100644
--- a/src/tests/regressions/multiprocessing.lsp
+++ b/src/tests/regressions/multiprocessing.lsp
@@ -538,3 +538,7 @@ creating stray processes."
                  (is (mp:mailbox-empty-p mbox)))))
 
 
+;;; Date: 2016-11-10
+;;; Description: CLASS-OF called on rwlock crashed lisp process
+(test rwlock
+  (finishes (class-of (mp:make-rwlock))))