diff --git a/contrib/splay-trees.factor b/contrib/splay-trees.factor
index b5e041166e..baa97fea55 100644
--- a/contrib/splay-trees.factor
+++ b/contrib/splay-trees.factor
@@ -46,7 +46,7 @@ DEFER: (splay)
         dup splay-node-r [ link-left (splay) ] when
     ] when ;
 
-: (splay) ( left right key node -- )
+: (splay) ( left right key node -- left right key node )
     cmp dup 0 <
     [ drop splay-left ] [ 0 > [ splay-right ] when ] if ;
 
@@ -72,7 +72,7 @@ DEFER: (splay)
 : (get-splay) ( key tree -- node )
     2dup splay splay-tree-r cmp 0 = [ nip ] [ 2drop f ] if ;
 
-: get-largest
+: get-largest ( node -- node )
     dup [ dup splay-node-r [ nip get-largest ] when* ] when ;
 
 : splay-largest