Index: /trunk/cgi-bin/IPDB.pm
===================================================================
--- /trunk/cgi-bin/IPDB.pm	(revision 720)
+++ /trunk/cgi-bin/IPDB.pm	(revision 721)
@@ -1347,5 +1347,5 @@
 	foreach my $block (@newfreeblocks) {
 	  $sth->execute($block, $fcity, $alloc_from_type, $args{vrf}, $fbparent, $fbmaster,
-		($block->masklen == $wantmaskbits ? $bid : 0));
+		($args{reserve} && $block->masklen == $wantmaskbits ? $bid : 0));
 	}