From 60da2df16ccc0c150d362cf5d0eda5d0b83a0869 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 29 Oct 2022 16:35:11 +0000
Subject: [c7f3977380] Balance stack operations in the mode with no Thread
 package.

---
 tests/http.test | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/http.test b/tests/http.test
index 742ff1c..08195a6 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -80,7 +80,9 @@ if {![info exists ThreadLevel]} {
     foreach ThreadLevel $ValueRange {
         source [info script]
     }
-    eval [lpop threadStack]
+    if {[llength $threadStack]} {
+	eval [lpop threadStack]
+    }
     catch {unset ThreadLevel}
     catch {unset ValueRange}
     return
-- 
cgit v0.12