diff --git a/vm.scm b/vm.scm
index 615ec27..48939a0 100644
--- a/vm.scm
+++ b/vm.scm
@@ -204,12 +204,12 @@
     (if _2
         (let ((hi (_dei port))
               (lo (_dei (u8 (+ port 1)))))
-          (_push2 (hilo->u16 hi lo)))
+          (_push1 hi) (_push1 lo))
         (_push1 (_dei port)))))
 (define (_dei port)
   (cond
-   ((= 4 port) (_push1 (+ (car wst) 1)))
-   ((= 5 port) (_push1 (+ (car rst) 1)))
+   ((= 4 port) (+ (car wst) 1))
+   ((= 5 port) (+ (car rst) 1))
    ((and (<= 192 port) (< port 208)) (_datetime (- port 192)))
    (* (u8 (vector-ref dev port)))))