1 files changed, 2 insertions, 2 deletions
diff --git a/arith.c b/arith.c
index 1d00e8aa..44e466df 100644
--- a/arith.c
+++ b/arith.c
@@ -3949,7 +3949,7 @@ val digits(val n, val base)
 
 val poly(val x, val seq)
 {
-  val self = lit("rpoly");
+  val self = lit("poly");
   val acc = zero;
   seq_info_t si = seq_info(seq);
 
@@ -3988,7 +3988,7 @@ val poly(val x, val seq)
 
 val rpoly(val x, val seq)
 {
-  val self = lit("poly");
+  val self = lit("rpoly");
   val acc = zero;
   val pow = x;
   seq_info_t si = seq_info(seq);