diff --git a/ansi-tests/disassemble.lsp b/ansi-tests/disassemble.lsp
index 4596c63469980e0368213cb524dd34aced5223c3..36f436b35d0865bd5558da320bd855aec8181277 100644
--- a/ansi-tests/disassemble.lsp
+++ b/ansi-tests/disassemble.lsp
@@ -70,6 +70,18 @@
     (disassemble-it 'disassemble-example-fn3))
   t nil)
 
+(deftest disassemble.11
+  (let ((fn 'disassemble-example-fn4))
+    (when (fboundp fn) (fmakunbound fn))
+    (eval `(defun ,fn (x) x))
+    (let ((is-compiled? (typep (symbol-function fn) 'compiled-function)))
+      (multiple-value-call
+       #'values
+       (disassemble-it fn)
+       (if is-compiled? (notnot (typep (symbol-function fn) 'compiled-function))
+	 (not (typep (symbol-function fn) 'compiled-function))))))
+  t nil t)
+
 ;;; Error tests
 
 (deftest disassemble.error.1