calculate segment lengths correctly

diff --git a/layout/layout b/layout/layout
index 3f5f6b5f18b50cae91adba560b643e376712d5d3..fd226ef6bd30591a4147d9f84e210b96ad664ad2 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -647,7 +647,7 @@ sub segment_used__print ($) {
     
 sub segment_used__len ($$) {
     my ($used,$pt) = @_;
-    $segused_incurrent++;
+    $segused_incurrent += $used;
 
     return if @segments < 3;
     $segments[1] -= $used;