diff --git a/src/anromero/homotopy.lisp b/src/anromero/homotopy.lisp
index 8fcd8d5..42a3e90 100644
--- a/src/anromero/homotopy.lisp
+++ b/src/anromero/homotopy.lisp
@@ -119,15 +119,21 @@
     (cond ((equal (car list) 1) (let* ((ch (chml-clss chcm indx))
                                        (fib (z-whitehead chcm ch))
                                        (ft (fibration-total fib)))
-                                  (construct-space-iterative ft (cdr list) indx)))
+                                  (progn
+                                    (kill-epis ft 1 indx)
+                                    (construct-space-iterative ft (cdr list) indx))))
           ((equal (car list) 2) (let* ((ch (chml-clss chcm indx))
                                        (fib (z2-whitehead chcm ch))
                                        (ft (fibration-total fib)))
-                                  (construct-space-iterative ft (cdr list) indx)))
+                                  (progn
+                                    (kill-epis ft 1 indx)
+                                    (construct-space-iterative ft (cdr list) indx))))
           (t (let* ((ch (chml-clss chcm indx))
                     (fib (zp-whitehead (car list) chcm ch))
                     (ft (fibration-total fib)))
-               (construct-space-iterative ft (cdr list) indx)))
+               (progn
+                                    (kill-epis ft 1 indx)
+               (construct-space-iterative ft (cdr list) indx))))
           )))