1 files changed, 3 insertions, 1 deletions
diff --git a/lisplib.c b/lisplib.c
index 80c8dc59..f841f4c7 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -292,7 +292,9 @@ static val except_instantiate(val set_fun)
 
 static val type_set_entries(val dlt, val fun)
 {
-  val name[] = { lit("typecase"), nil };
+  val name[] = {
+    lit("typecase"), lit("etypecase"), nil
+  };
   set_dlt_entries(dlt, name, fun);
   return nil;
 }