diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index 859bcc2862..5cdc13b08f 100644
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -35,10 +35,10 @@ TUPLE: brainfuck pointer memory ;
     read1 set-memory ;
 
 : (>) ( brainfuck n -- brainfuck )
-    [ dup pointer>> ] dip + >>pointer ;
+    [ + ] curry change-pointer ;
 
 : (<) ( brainfuck n -- brainfuck )
-    [ dup pointer>> ] dip - >>pointer ;
+    [ - ] curry change-pointer ;
 
 : (#) ( brainfuck -- brainfuck )
     dup