-sub so_objboob ($$$) {
- my ($kind,$mkused,$obj) = @_;
- return so_boob($kind,$mkused, defined $obj ? $obj->{BoOb} : undef);
+sub so_objboob ($$$;$) {
+ my ($kind,$mkused,$obj, $objnum_rr) = @_;
+# return so_boob($kind,$mkused, defined $obj ? $obj->{BoOb} : undef );
+#print "so_objboob >$objnum_rr|$$objnum_rr<\n";
+ return so_boob($kind,$mkused,
+ defined $obj ? $obj->{BoOb} : undef
+ , $objnum_rr
+ );