From 787be12e8a0ea6479dc4edeaa83ee08a60d03fd6 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Mon, 9 Oct 2006 22:51:47 +0000
Subject: [PATCH] fix contrib/sequences

---
 contrib/sequences.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/sequences.factor b/contrib/sequences.factor
index 2f3593de4a..b6b3d6c880 100644
--- a/contrib/sequences.factor
+++ b/contrib/sequences.factor
@@ -17,7 +17,7 @@ IN: sequences-contrib
 
 : (rtrim*) ( seq quot -- newseq )
     over length 0 > [
-        2dup >r last r> call
+        2dup >r peek r> call
         [ >r dup length 1- head-slice r> (rtrim*) ] [ drop ] if
     ] [
         drop
-- 
2.34.1