diff --git a/src/kiss/KissInterp2.hx b/src/kiss/KissInterp2.hx
index cacb2f8..a6f407b 100644
--- a/src/kiss/KissInterp2.hx
+++ b/src/kiss/KissInterp2.hx
@@ -38,6 +38,12 @@ class KissInterp2 {
 					specialForms = _specialForms();
 					identAliases = kiss.Kiss.defaultIdentAliases;
 					callAliases = kiss.Kiss.defaultCallAliases;
+
+					callAliases["zip"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipThrow");
+					callAliases["zipKeep"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipKeep");
+					callAliases["zipDrop"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipDrop");
+					callAliases["zipThrow"] = kiss.ReaderExp.ReaderExpDef.Symbol("Prelude.zipThrow");
+
 					globals["Prelude"] = kiss.Prelude;
 					$preexistingNewBody;
 				}
diff --git a/src/kiss/KissInterp2.kiss b/src/kiss/KissInterp2.kiss
index 5058e8e..a6d6f4f 100644
--- a/src/kiss/KissInterp2.kiss
+++ b/src/kiss/KissInterp2.kiss
@@ -8,6 +8,7 @@
 (import kiss.ReaderExp.ReaderExpDef.FieldExp)
 (import kiss.Stream)
 
+// TODO don't add to these directly here! The constructor does it
 (prop &mut :ReadTable readTable (Reader.builtins))
 (prop &mut :ReadTable startOfLineReadTable (new Map))
 (prop &mut :ReadTable startOfFileReadTable (new Map))