X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=explain.tcl;h=5853c4049c51fe44dc4a7c3a63cd60471dc5cbf1;hb=fc957040e2ca086e56a8abf794081dcde48683f2;hp=d3049e0b61978a038a385ecf77e41ab387623bc2;hpb=477f6feccaf785916170e8f1f94873e798eb77ed;p=ir-tcl-moved-to-github.git

diff --git a/explain.tcl b/explain.tcl
index d3049e0..5853c40 100644
--- a/explain.tcl
+++ b/explain.tcl
@@ -1,3 +1,14 @@
+# IR toolkit for tcl/tk
+# (c) Index Data 1995-1998
+# See the file LICENSE for details.
+# Sebastian Hammer, Adam Dickmeiss
+#
+# Explain Driver
+#
+# $Log: explain.tcl,v $
+# Revision 1.3  1998-02-12 13:32:42  adam
+# Updated configuration system.
+#
 
 # Procedure explain-search
 #  Issue search request with explain-attribute set and specific
@@ -75,7 +86,7 @@ proc explain-present-response {target zz category finish response fresponse} {
 proc explain-check-0 {target finish} {
     show-status Explaining 1 0
     show-message CategoryList
-    explain-search-request $target z39.categoryList CategoryList $finish \
+    explain-search-request $target z39.categoryList TargetInfo $finish \
             explain-check-5 explain-check-fail
 }