bex prun: More display slot fixes

diff --git a/lib/bin/bex-prun b/lib/bin/bex-prun
index 162fc8a2946473180fc984eefdd8dec79d5c99cc..0d0d012e3564b098ee27d66c105e3e48f47ce7dc 100755 (executable)
--- a/lib/bin/bex-prun
+++ b/lib/bin/bex-prun
@@ -280,12 +280,13 @@ sub place_slot($) {
                }
        }
 
-       if ($best) {
-               delete $best->{'Row'};
+       if (defined $besti) {
+               if ($best) {
+                       delete $best->{'Row'};
+               }
+               $s->{'Row'} = $besti;
+               $by_row[$besti] = $s;
        }
-       $s->{'Row'} = $besti;
-       $by_row[$besti] = $s;
-       return $s;
 }
 
 sub redraw_slot($) {