diff --git a/S32-list/sort.t b/S32-list/sort.t
index 3429ce1a1d..0581e29047 100644
--- a/S32-list/sort.t
+++ b/S32-list/sort.t
@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 36;
+plan 37;
 
 # L<S32::Containers/"List"/"=item sort">
 
@@ -248,4 +248,7 @@ subtest 'degenerate cases' => {
     is-deeply (2, 1).sort(-> $, $ {-1}), (2, 1).Seq, '2-item, 2-arity (3)';
 }
 
+# https://github.com/rakudo/rakudo/issues/1739
+is-deeply <a c b>.sort(&lc), <a b c>.Seq, 'no crashes when using &lc in .sort';
+
 # vim: ft=perl6