From d851a05ebb195865098ff3936f869a2a6dd7da1f Mon Sep 17 00:00:00 2001
From: rzuckerm <ron.zuckerman@adtran.com>
Date: Sat, 11 Jan 2025 18:54:27 -0600
Subject: [PATCH] Fix test failure

---
 archive/c/cobol/baklava.cbl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/archive/c/cobol/baklava.cbl b/archive/c/cobol/baklava.cbl
index d8fa88646..484a89963 100644
--- a/archive/c/cobol/baklava.cbl
+++ b/archive/c/cobol/baklava.cbl
@@ -13,7 +13,7 @@
         PROCEDURE DIVISION.
             PERFORM VARYING NUM FROM 0 BY 1 UNTIL NUM > 20
                 COMPUTE NUM-SPACES = FUNCTION ABS(NUM - 10)
-                COMPUTE NUM-STARS = 21 - 2 * NUM-SPACES
+                COMPUTE NUM-STARS = 20 - 2 * NUM-SPACES
 
       * Display NUM-SPACES " "
                 MOVE " " TO REPEAT-CHAR
@@ -26,7 +26,7 @@
                 PERFORM DISPLAY-REPEAT-STRING
 
       * Display newline
-                DISPLAY ""
+                DISPLAY "*"
             END-PERFORM
             STOP RUN.