diff --git a/clusterd b/clusterd
index 3f5fb5e..fd857e1 100755
--- a/clusterd
+++ b/clusterd
@@ -27,9 +27,7 @@ sub My::Select::time
 	return $time;
 }
 
-#-----------------------------------------
-
-our @TIMER=();				# ( [duetime,cb] ,  ) sorted by time
+our @TIMER=();				# ( [duetime,cb] , ... ) sorted by time
 our $active_timer_cb;
 
 sub timeout			# cb=Select::timeout(seconds,cb) or cb=Select::Timeout(seconds,subref [,args,...])
@@ -86,7 +84,7 @@ sub reader_requeue {push @READER,$active_io}
 sub writer_requeue {push @WRITER,$active_io}
 sub except_requeue {push @EXCEPT,$active_io}
 
-sub cancel					# $cb = Select::cancel([cb])
+sub cancel					# $cb = Select::cancel(cb)
 {
 	my ($cb)=@_;
 	defined $cb or $cb=$active_io->[1];
@@ -103,8 +101,6 @@ sub cancel_handle
 	@EXCEPT=grep {$_->[0] != $handle} @EXCEPT;
 }
 
-#--------------------------------------------
-
 sub run
 {
 	while (1) {