From f67d76dc7213a870260b7bff86467dbb156e53bf Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Sun, 18 Oct 2020 16:12:11 +0300
Subject: Fix.

---
 main.sts | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/main.sts b/main.sts
index 5e56790..62550a5 100644
--- a/main.sts
+++ b/main.sts
@@ -103,8 +103,8 @@ defword checktext
     bifreq_eng freq_eng calcdist if 1 else
     0 fi
         ; Remove frequencies from stack:
-    2c0 set
-    2c0 clear
+    2c1 set
+    2c1 clear
 exit
 
 set_entry float_init ; this is program with floats
@@ -118,6 +118,7 @@ set_entry float_init ; this is program with floats
     do
         ; generate next key to try
         keygen as keylen local key
+        5 print_stack
         '.' sys_write_err
 
         ; decipher text (length is the same as for ciphertext)
-- 
cgit v1.2.3