diff --git a/doc/ikarus-scheme-users-guide.pdf b/doc/ikarus-scheme-users-guide.pdf
index 4f2bef9..eab5531 100644
Binary files a/doc/ikarus-scheme-users-guide.pdf and b/doc/ikarus-scheme-users-guide.pdf differ
diff --git a/doc/ikarus-scheme-users-guide.tex b/doc/ikarus-scheme-users-guide.tex
index 8fdbc4c..c8bcf3d 100644
--- a/doc/ikarus-scheme-users-guide.tex
+++ b/doc/ikarus-scheme-users-guide.tex
@@ -2976,8 +2976,6 @@ procedures.
 
 
 \begin{itemize}
-\item The procedure \texttt{equal?}\ may not terminate on
-\texttt{equal?}\ infinite (circular) input.
 \item \texttt{number->string} does not accept the third argument
 (precision).  Similarly, \texttt{string->number} and the reader do
 not recognize the \texttt{|p} notation. 
diff --git a/scheme/ikarus.equal.ss b/scheme/ikarus.equal.ss
index ad68ca6..e10d8de 100644
--- a/scheme/ikarus.equal.ss
+++ b/scheme/ikarus.equal.ss
@@ -28,14 +28,11 @@
         ($fx=      =))))
 
 
-
-  (define eq-hashtable-ref hashtable-ref)
-  (define eq-hashtable-set! hashtable-set!)
-
-  (define-struct box (content))
-
   (define (union-find ht x y)
     (import UNSAFE)
+    (define-struct box (content))
+    (define eq-hashtable-ref hashtable-ref)
+    (define eq-hashtable-set! hashtable-set!)
     (define (find b)
       (let ([n (box-content b)])
         (if (box? n)
diff --git a/scheme/last-revision b/scheme/last-revision
index a8a4f74..15475a3 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1666
+1667