delete the R object

diff --git a/sweavealike.pm b/sweavealike.pm
index f802fa5957f78b476780ddd98ea51886eda7d8af..96bb5564c8aaceef08337a911792503759b7dfca 100644 (file)
--- a/sweavealike.pm
+++ b/sweavealike.pm
@@ -209,6 +209,7 @@ sub savestate {
                and $pagestate{$page}{$id}{R}->is_started()) {
                $pagestate{$page}{$id}{R}->stop;
            }
+           delete $pagestate{$page}{$id}{R};
        }
        if (exists $pagestate{$page}{$id}{fignum}) {
            delete $pagestate{$page}{$id}{fignum}