From 9021e5f6e05554fd15f24bcd7ba6ebbcc55be107 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 26 Jun 2020 17:35:21 -0400
Subject: [PATCH] cvm: fix does

---
 cvm/vm.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cvm/vm.c b/cvm/vm.c
index b6b6188..68167e9 100644
--- a/cvm/vm.c
+++ b/cvm/vm.c
@@ -86,7 +86,8 @@ static void execute(word wordref) {
         vm.IP = wordref+1;
     } else { // cell or does
         push(wordref+1);
-        if (wtype == 4) {
+        if (wtype == 3) {
+            pushRS(vm.IP);
             vm.IP = gw(wordref+3);
         }
     }