diff --git a/src/lib/commands/repo.c b/src/lib/commands/repo.c
index 6fd3c330..30e9d765 100644
--- a/src/lib/commands/repo.c
+++ b/src/lib/commands/repo.c
@@ -97,7 +97,7 @@ repo_list(struct natstr *plnatp, struct natstr *natp)
     } else {
 	if (!opt_HIDDEN && influx(natp))
 	    pr("In flux\n");
-	else if (!opt_HIDDEN && natp->nat_money <= 0)
+	else if (!opt_HIDDEN && natp->nat_money < 0)
 	    pr("Broke\n");
 	else
 	    pr("Active\n");
diff --git a/src/lib/player/init_nats.c b/src/lib/player/init_nats.c
index 6fd2c978..9674153f 100644
--- a/src/lib/player/init_nats.c
+++ b/src/lib/player/init_nats.c
@@ -63,7 +63,7 @@ init_nats(void)
     if (opt_HIDDEN) {
 	putcontact(np, player->cnum, FOUND_SPY);
     }
-    if (np->nat_money <= 0)
+    if (np->nat_money < 0)
 	player->broke = 1;
     else {
 	player->nstat |= MONEY;
diff --git a/src/lib/update/sect.c b/src/lib/update/sect.c
index 05bbec75..0befb2ee 100644
--- a/src/lib/update/sect.c
+++ b/src/lib/update/sect.c
@@ -327,7 +327,7 @@ produce_sect(int natnum, int etu, struct bp *bp, long p_sect[][2])
 	desig = sp->sct_type;
 
 	if ((sp->sct_effic < 100 || sp->sct_type != sp->sct_newtype) &&
-	    np->nat_money > 0) {
+	    np->nat_money >= 0) {
 	    neweff = upd_buildeff(np, sp, &work, vec, etu, &desig, sctwork,
 				  &cost);
 	    bp_put_items(bp, sp, vec);
@@ -354,7 +354,7 @@ produce_sect(int natnum, int etu, struct bp *bp, long p_sect[][2])
 	 */
 
 	if (neweff >= 60) {
-	    if (np->nat_money > 0 && dchr[desig].d_prd >= 0)
+	    if (np->nat_money >= 0 && dchr[desig].d_prd >= 0)
 		work -= produce(np, sp, vec, work, desig, neweff,
 				&pcost, &amount);
 	    bp_put_items(bp, sp, vec);
diff --git a/src/lib/update/ship.c b/src/lib/update/ship.c
index 85889adc..78c6dc36 100644
--- a/src/lib/update/ship.c
+++ b/src/lib/update/ship.c
@@ -156,7 +156,7 @@ upd_ship(struct shpstr *sp, int etus,
 	    sectp = getsectp(sp->shp_x, sp->shp_y);
 
 	    /* produce oil */
-	    if (np->nat_money > 0
+	    if (np->nat_money >= 0
 		&& (mp->m_flags & M_OIL) && sectp->sct_type == SCT_WATER) {
 		product = &pchr[dchr[SCT_OIL].d_prd];
 		oil_gained = roundavg(total_work(100, etus,
@@ -182,7 +182,7 @@ upd_ship(struct shpstr *sp, int etus,
 		sp->shp_item[I_OIL] += oil_gained;
 	    }
 	    /* produce fish */
-	    if (np->nat_money > 0
+	    if (np->nat_money >= 0
 		&& (mp->m_flags & M_FOOD) && sectp->sct_type == SCT_WATER) {
 		sp->shp_item[I_FOOD]
 		    += roundavg(total_work(100, etus,