diff --git a/src/effective-homology.lisp b/src/effective-homology.lisp
index 13454c0..fde20b9 100644
--- a/src/effective-homology.lisp
+++ b/src/effective-homology.lisp
@@ -79,6 +79,9 @@
 ;;;  HOMOTOPY-EQUIVALENCES
 ;;;
 
+;;(defgeneric build-hmeq (keyword lrdct &key &allow-other-keys)
+(DEFGENERIC BUILD-HMEQ (keyword lrdct &key)
+  (:documentation "needed by ECL"))
 
 (DEFMETHOD BUILD-HMEQ ((keyword1 (eql :lrdct)) lrdct &key rrdct orgn)
    (declare