diff --git a/priority-queue.lisp b/priority-queue.lisp
index dd50ed3..a2b1b7c 100644
--- a/priority-queue.lisp
+++ b/priority-queue.lisp
@@ -236,7 +236,7 @@
 (defmethod queue-merge-safe ((queue1 priority-queue) (queue2 priority-queue))
   "Nondestructive merge"
   (when (%queue-compatible-p queue1 queue2)
-    (let* ((new-queue (make-priority-queue :compare (queue-comparison queue1)))
+    (let* ((new-queue (make-queue :priority-queue :compare (queue-comparison queue1)))
            (min1 (deep-copy (min-node-of queue1)))
            (min2 (deep-copy (min-node-of queue2))))
       (%merge min1 min2)
@@ -486,4 +486,4 @@
 
 ;;; ===========================================================================
 ;;; End of file
-;;; ===========================================================================
\ No newline at end of file
+;;; ===========================================================================