+ meta_and_stage('included', $current->{DepSpec}."\n");
+ meta_and_stage('pprops', '');
+}
+
+run_git(qw(commit -q -m), "tb-create $newpatch base");
+
+#----- create the tip branch
+
+my $tipref = "refs/topbloke-tips/$newpatch";
+create_and_switch($tipref, 'tip');
+
+my $nm = wf_start('.topbloke/msg');
+wf($nm, "From: $author\n");
+foreach my $h (qw(To CC BCC)) {
+ my $estatus;
+ run_git(\$estatus, sub { wf($nm, "$h: $_") or die $!; },
+ qw(config), "topbloke.".lc $h);
+ die "$h $estatus" unless $estatus==0 || $estatus==256;
+}
+wf($nm, <<END) or die $!;
+Subject: [${subjprefix}PATCH] $spec->{Nick}
+
+<patch description>
+
+Signed-off-by: $author
+END
+wf_done($nm);
+stage_meta('msg');
+
+meta_and_stage('deps', "$current->{DepSpec}\n");
+# we inherit correct props and pprops from the base branch
+
+depsfile_add_dep('included','tb',$newpatch);
+stage_meta('included');
+
+run_git(qw(commit -q -m), "tb-create $newpatch tip");