diff --git a/219-fix-test.patch b/219-fix-test.patch
index 26d8bc2..d379df6 100644
--- a/219-fix-test.patch
+++ b/219-fix-test.patch
@@ -11,3 +11,18 @@ index c0aa11b..87f81f1 100644
                               "ecl"))
      (name source regexp)
      "Extra tests for defstruct."
+
+diff --git a/../slime-2.19/contrib/swank-sbcl-exts.lisp b/contrib/swank-sbcl-exts.lisp
+index 29235cd..5a0cf89 100644
+--- a/contrib/swank-sbcl-exts.lisp
++++ b/contrib/swank-sbcl-exts.lisp
+@@ -37,6 +37,9 @@
+                      (symbol
+                       (string-downcase instruction))))
+                  (instr-fn
++                   #+#.(swank/backend:with-symbol 'op-encoder-name 'sb-assem)
++		   (or (sb-assem::op-encoder-name instr-name)
++		       (sb-assem::op-encoder-name (string-upcase instr-name)))
+                    #+#.(swank/backend:with-symbol 'inst-emitter-symbol 'sb-assem)
+                    (sb-assem::inst-emitter-symbol instr-name)
+                    #+(and
diff --git a/sources b/sources
index 6b84a7c..25c6031 100644
--- a/sources
+++ b/sources
@@ -1,2 +1 @@
-sha512 (v2.19.tar.gz) = 106733df0780fdb04a063e0f382264f8ff9171b2a78413279fee2ca986bafdd7d02a56feca19f156dbf0a93486b261cf79f2c05e614ed9bd777b769988eb4c1f  
-
+sha512 (v2.19.tar.gz) = 106733df0780fdb04a063e0f382264f8ff9171b2a78413279fee2ca986bafdd7d02a56feca19f156dbf0a93486b261cf79f2c05e614ed9bd777b769988eb4c1f