diff --git a/collects/string-constants/string-constant.ss b/collects/string-constants/string-constant.ss
index 54753695ae..5d8ac85efa 100644
--- a/collects/string-constants/string-constant.ss
+++ b/collects/string-constants/string-constant.ss
@@ -160,7 +160,7 @@
 				lang2-name)
 		       (for-each
 			(lambda (x) (fprintf sp "   ~s\n" x))
-			(quicksort
+			(sort
 			 constants
 			 (lambda (x y) (string<=? (symbol->string (car x)) (symbol->string (car y))))))
 		       (newline sp)))