diff --git a/extra/sequences/abbrev/abbrev-tests.factor b/extra/sequences/abbrev/abbrev-tests.factor
index 6e6739e09a..39e445b495 100644
--- a/extra/sequences/abbrev/abbrev-tests.factor
+++ b/extra/sequences/abbrev/abbrev-tests.factor
@@ -1,7 +1,7 @@
 USING: assocs sequences.abbrev tools.test ;
 IN: sequences.abbrev.tests
 
-[ { "help" "hello" } ] [
+[ { "hello" "help" } ] [
     "he" { "apple" "hello" "help" } abbrev at
 ] unit-test
 
diff --git a/extra/sequences/abbrev/abbrev.factor b/extra/sequences/abbrev/abbrev.factor
index d5bba8951e..6770a48a3a 100644
--- a/extra/sequences/abbrev/abbrev.factor
+++ b/extra/sequences/abbrev/abbrev.factor
@@ -12,7 +12,7 @@ IN: sequences.abbrev
     [ prefixes ] keep 1array '[ _ ] H{ } map>assoc ;
 
 : assoc-merge ( assoc1 assoc2 -- assoc3 )
-    tuck '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ;
+    tuck '[ over _ at dup [ append ] [ drop ] if ] assoc-map assoc-union ;
 
 PRIVATE>