diff --git a/scheme/sort/interfaces.scm b/scheme/sort/interfaces.scm
index b9d8311..c2b5a80 100644
--- a/scheme/sort/interfaces.scm
+++ b/scheme/sort/interfaces.scm
@@ -152,7 +152,7 @@
 ;;;
 ;;; vector-delete-neighbor-dups v = [start end] -> vector
 
-(define-interface sort-interface
+(define-interface sorting-interface
   (compound-interface
    sorted-interface
    (export
@@ -185,15 +185,15 @@
 	   :vector))
 
     ((vector-sort! vector-stable-sort!)
-     (proc ((proc (:value :value) :boolean) :vector) :unspecific)))
+     (proc ((proc (:value :value) :boolean) :vector) :unspecific))
 
-   (list-delete-neighbor-dups
-    (proc ((proc (:value :value) :boolean)
-	   :value)
-	  :value))
-   (vector-delete-neighbor-dups
-    (proc ((proc (:value :value) :boolean)
-	   :vector
-	   &opt
-	   :exact-integer :exact-integer)
-	  :vector))))
+    (list-delete-neighbor-dups
+     (proc ((proc (:value :value) :boolean)
+	    :value)
+	   :value))
+    (vector-delete-neighbor-dups
+     (proc ((proc (:value :value) :boolean)
+	    :vector
+	    &opt
+	    :exact-integer :exact-integer)
+	   :vector)))))
diff --git a/scheme/sort/packages.scm b/scheme/sort/packages.scm
index 24b7133..0f23837 100644
--- a/scheme/sort/packages.scm
+++ b/scheme/sort/packages.scm
@@ -3,7 +3,7 @@
 
 ;;; The general sort package:
 
-(define-structure sort sort-interface
+(define-structure sorting sorting-interface
   (open scheme
 	list-merge-sort
 	vector-heap-sort