#
-# $Id: z39util.tcl,v 1.42 1996/03/15 14:43:45 adam Exp $
+# $Id: z39util.tcl,v 1.43 1996/03/26 16:27:03 adam Exp $
#
proc saveState {} {
uplevel #0 {
html "No Title"
}
html {</a> }
- if {[scan $score %d nscore]} {
+ if {[scan $score %d nscore] == 1} {
html "; Score " $nscore
}
} else {