diff -r 4ceb61738fbf src/org/armedbear/lisp/jvm.lisp
--- a/src/org/armedbear/lisp/jvm.lisp	Sat Mar 06 12:09:16 2010 +0100
+++ b/src/org/armedbear/lisp/jvm.lisp	Sat Mar 06 12:24:33 2010 +0100
@@ -571,6 +571,7 @@
 "
   (or (unwind-protect-node-p object)
       (catch-node-p object)
+      (progv-node-p object)
       (synchronized-node-p object)))
 
 (defknown block-creates-runtime-bindings-p (t) boolean)
