From 44175ad8740fefaa5b8b2fdd866d0958dc46d930 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 21:07:30 +0000
Subject: [PATCH] Fix bug in windows_info:clear.

---
 windows_info.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/windows_info.tcl b/windows_info.tcl
index be0c399..f005d77 100644
--- a/windows_info.tcl
+++ b/windows_info.tcl
@@ -9,7 +9,9 @@ object_class windows_info {
     member windows {}
     method clear {} {
 	foreach w $slot(windows) {
-	    unset slot($w.class)
+	    if [info exists slot($w.class)] {
+		unset slot($w.class)
+	    }
 	}
 	set slot(windows) {}
     }
-- 
2.23.0