diff --git a/sim.c b/sim.c
index cbb280f..e6883fb 100644
--- a/sim.c
+++ b/sim.c
@@ -415,6 +415,7 @@ END_PHASE
 BEGIN_DUAL_PHASE_0(delay)
   PSEUDO_DUAL;
   BEGIN_DUAL_PORTS
+    PORT(0, 1, IN);
     PORT(0, -1, IN | HASTE);
     PORT(1, 0, OUT);
   END_PORTS