diff --git a/slime-tests.el b/../slime-2.19/slime-tests.el
index c0aa11b..87f81f1 100644
--- a/slime-tests.el
+++ b/slime-tests.el
@@ -553,7 +553,7 @@ confronted with nasty #.-fu."
(slime-check "Definition now at point." (looking-at snippet))))))
(def-slime-test (find-definition.3
+ (:fails-for "abcl" "allegro" "clisp" "lispworks"
- (:fails-for "abcl" "allegro" "clisp" "lispworks" "sbcl"
"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