comparing content with equal instead of string-equal

1 files changed, 1 insertions, 1 deletions

diff --git a/flexo.lisp b/flexo.lisp
index e3beb1e..73bee51 100644
--- a/flexo.lisp
+++ b/flexo.lisp
@@ -209,7 +209,7 @@ artifact tables have changed."
   paranscript. "))
 
 (defmethod content-equivlanet-p ((a template-generated-text) (b template-generated-text))
-  (string-equal (generated-text a) (generated-text b)))
+  (equal (generated-text a) (generated-text b)))
 
 
 (defclass spinneret-page (template-generated-text) ()