diff --git a/src/cmp/cmpexit.lsp b/src/cmp/cmpexit.lsp
index 18bd8b409..7e9133c63 100644
--- a/src/cmp/cmpexit.lsp
+++ b/src/cmp/cmpexit.lsp
@@ -113,7 +113,7 @@
 		    (wt-nl "return(" loc ");")))
 	      (return)))
 	   (FRAME
-	    (let ((*destination* (tmp-destination loc)))
+	    (let ((*destination* (tmp-destination *destination*)))
 	      (set-loc loc)
 	      (setq loc *destination*))
 	    (wt-nl "frs_pop();"))