diff --git a/changelog b/changelog
index 7c7788a..ca336c0 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20071217 tpd src/algebra/variable.spad ignore regression test gensym (7041)
+20071217 tpd src/algebra/lodo.spad ignore regression test gensym (7042)
 20071217 acr src/algebra/mathml.spad fix hex(10) mathml rendering (7015)
 20071217 wxh src/interp/http.lisp mathObject2String for hex(10) (7015)
 20071216 acr src/algebra/mathml.spad fix F,3 mathml rendering (7019)
diff --git a/src/algebra/lodo.spad.pamphlet b/src/algebra/lodo.spad.pamphlet
index 99f2ad8..0e499d1 100644
--- a/src/algebra/lodo.spad.pamphlet
+++ b/src/algebra/lodo.spad.pamphlet
@@ -270,7 +270,7 @@ leq
 --R      Polynomial Integer 
 --R   Compiling body of rule leq to compute value of type List List 
 --R      Equation Fraction Polynomial Integer 
---R   Compiling function G3349 with type Integer -> Boolean 
+--I   Compiling function G3349 with type Integer -> Boolean 
 --R
 --R   (12)
 --R                           2                                3        2
diff --git a/src/algebra/variable.spad.pamphlet b/src/algebra/variable.spad.pamphlet
index 994aa3b..e9e5f02 100644
--- a/src/algebra/variable.spad.pamphlet
+++ b/src/algebra/variable.spad.pamphlet
@@ -43,8 +43,8 @@ size()$Z
 --S 4
 lv:=[index(i::PI)$Z for i in 1..size()$Z]
 --R 
---R   Compiling function G1408 with type Integer -> Boolean 
---R   Compiling function G1572 with type NonNegativeInteger -> Boolean 
+--I   Compiling function G1408 with type Integer -> Boolean 
+--I   Compiling function G1572 with type NonNegativeInteger -> Boolean 
 --R
 --R   (4)  [x,a,z]
 --R                                       Type: List OrderedVariableList [x,a,z]