--- a/inst/@dataframe/fold.m
+++ b/inst/@dataframe/fold.m
@@ -1,6 +1,6 @@
 function resu = fold(df, dim, indr, indc)
 
-  %# function resu = subasgn(df, S, RHS)
+  %# function resu = fold(df, S, RHS)
   %# The purpose is to fold a dataframe. Part from (1:indr-1) doesn't
   %# move, then content starting at indr is moved into the second,
   %# third, ... sheet. To be moved, there must be equality of rownames,