diff --git a/code/sort.lisp b/code/sort.lisp
index 769bceb17bb50c2be6d3aead08f26c62d12c7f15..88d85dd0d7ee1f698012aaa89b5517c902cfd17d 100644
--- a/code/sort.lisp
+++ b/code/sort.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sort.lisp,v 1.8 2002/08/08 15:28:54 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sort.lisp,v 1.9 2002/10/02 17:29:14 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -425,7 +425,8 @@
 (defun merge (result-type sequence1 sequence2 predicate &key key)
   "The sequences Sequence1 and Sequence2 are destructively merged into
    a sequence of type Result-Type using the Predicate to order the elements."
-  (if (eq result-type 'list)
+  (if (or (eq result-type 'list)
+	  (subtypep result-type 'list))
       (let ((result (merge-lists* (coerce sequence1 'list)
 				  (coerce sequence2 'list)
 				  predicate key)))