1 files changed, 1 insertions, 1 deletions
diff --git a/scope.c b/scope.c
index f87689e387..3da5e63fb1 100644
--- a/scope.c
+++ b/scope.c
@@ -824,7 +824,7 @@ Perl_leave_scope(pTHX_ I32 base)
 	    break;
 	case SAVEt_DESTRUCTOR:
 	    ptr = SSPOPPTR;
-	    CALLDESTRUCTOR(aTHX_ ptr);
+	    CALLDESTRUCTOR(aTHXo_ ptr);
 	    break;
 	case SAVEt_REGCONTEXT:
 	case SAVEt_ALLOC: