diff --git a/changelog b/changelog
index cdd0688..42b6f9d 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20080102 tpd src/algebra/zerodim remove extra )spool in LexTriangularPackage
 20080131 tpd src/input/Makefile add ei.input for Ei regression test
 20080131 tpd src/input/ei.input regression test function Ei
 20080131 tpd src/algebra/special.spad add special function Ei
diff --git a/src/algebra/zerodim.spad.pamphlet b/src/algebra/zerodim.spad.pamphlet
index 26261e9..1bd9951 100644
--- a/src/algebra/zerodim.spad.pamphlet
+++ b/src/algebra/zerodim.spad.pamphlet
@@ -1882,8 +1882,6 @@ concat [realSolve(ts)$zdpack for ts in lts]
 --R                                 Type: List List RealClosure Fraction Integer
 --E 22
 )spool
- 
-)spool
 )lisp (bye)
 @
 <<LexTriangularPackage.help>>=
