diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 553c7e5..4c38229 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -16,7 +16,6 @@ jobs:
       fail-fast: false
       matrix:
         lisp:
-        - ecl
         - sbcl
     runs-on: ubuntu-latest
     container:
diff --git a/code/burger-dybvig.lisp b/code/burger-dybvig.lisp
index 18844b4..f5293de 100644
--- a/code/burger-dybvig.lisp
+++ b/code/burger-dybvig.lisp
@@ -356,7 +356,7 @@
                      (setf m- (expt 2 e)
                            m+ (* m- 2)
                            s 4
-                           r (* f m+  2))
+                           r (* f m+ 2))
                      (setf m- (expt 2 e)
                            m+ m-
                            s 2
diff --git a/code/shim/test/expected-failures/sbcl.sexp b/code/shim/test/expected-failures/sbcl.sexp
index c798541..3cb67ce 100644
--- a/code/shim/test/expected-failures/sbcl.sexp
+++ b/code/shim/test/expected-failures/sbcl.sexp
@@ -1 +1,2 @@
+FORMAT.E.2
 FORMAT.E.26