X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=www%2Fz39util.tcl;h=6b56df4e5158d468fbdf49234378793a13bbb15a;hb=3d4b6045b8875099666b99edbf1457c91b5da928;hp=5c81b13d138cebf94187cfd18525f629c7d87c49;hpb=b443634fbd412cea15ea527188c3e241bb1edf21;p=egate.git

diff --git a/www/z39util.tcl b/www/z39util.tcl
index 5c81b13..6b56df4 100644
--- a/www/z39util.tcl
+++ b/www/z39util.tcl
@@ -1,5 +1,5 @@
 #
-# $Id: z39util.tcl,v 1.4 1995/11/08 16:14:36 adam Exp $
+# $Id: z39util.tcl,v 1.5 1995/11/08 18:07:23 adam Exp $
 #
 proc saveState {} {
     uplevel #0 {
@@ -16,6 +16,10 @@ proc saveState {} {
                 eval "set v \$${var}(\$n)"
 		puts $f "set ${var}($n) \{$v\}"
 	    }
+            catch {
+                eval "set v \$${var}"
+                puts $f "set ${var} \{$v\}"
+            }
         }
     }
     close $f